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ABSTRACT 

The  Programmable  Film  Reader,  consisting  of  digital  computer,  magnetic 
tape  units,  CRT,  and  film  transport  with  optical  and  electronic  circuits,  is  a 
device  for  reducing  radar  A -scope  film  data  to  digital  form.  This  is  done  by 
scanning  selected  portions  of  the  film  with  a  spot  of  light  under  program  control. 
The  relative  amount  of  light  passing  through  the  film  is  measured  by  the  device 
and  reported  back  to  the  computer  for  processing. 

A  set  of  computer  programs,  called  the  Film  Reading  Program  System, 
has  been  written  for  the  PDP-1  computer  and  Programmable  Film  Reader.  These 
programs  will  read  films  in  three  formats;  A-scope  traces,  A-scope  traces  with 
fiducial  marks  and  Project  Radar  A-scope  traces.  The  amplitudes  of  the  traces 
are  sampled  up  to  about  500  times  and  the  digitized  results  written  onto  magnetic 
tape  in  IBM  format.  This  report  presents  a  description  of  the  computer  programs 
together  with  flow  charts  and  listings.  The  reader  is  presumed  familiar  with  the 
PDP-i  computer  and  the  MACRO  assembly  language. 

The  latest  modification  to  the  system  adapts  it  for  use  with  the  MIDAS 
assembly  program  and  with  a  new  high-speed  magnetic  tape  system  on  the  PDP-1 
computer. 


Accepted  for  the  Air  Force 
Stanley  J.  Wisniewski 
Lt  Colonel,  USAF 
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I.  PROGRAMMABLE  FILM  READER 

A.  General 

In  many  cases,  radar  data  are  recorded  by  making  photographs  of  an  A-scope 
display.  This  display  presents  an  amplitude  vs  time  plot  of  the  signal  received  by  the 
radar  in  a  chosen  range  gate.  Although  these  photographic  records  have  been  valuable 
for  qualitative  viewing,  their  use  in  the  past  as  a  quantitative  recording  medium  has 
been  limited  because  of  the  enormous  task  of  reading  thousands  of  traces  manually.  In 
the  course  of  a  study  of  data  processing  for  the  Air  Force  Ballistic  Missile  Re-entry 
Systems  tests,  the  need  was  recognized  for  a  rapid,  automatic  method  of  extracting 
data  from  these  photographs,  and  recording  them  on  magnetic  tape  in  a  form  suitable 
for  entry  into  a  computer.  Hence,  the  development  of  a  device  to  accomplish  this  was 
undertaken. 

The  basic  elements  of  the  Programmable  Film  Reader,  shown  in  Fig.  1,  are 
the  CRT  which  displays  a  point  of  light  under  program  control;  the  reference  photo¬ 
multiplier  which  is  adjusted  so  that  its  output  is  a  constant  voltage  that  is  a  measure 
of  the  background  level  of  the  film;  the  signal  photomultiplier  whose  output  voltage  is 
a  measure  of  the  density  of  the  part  of  the  film  illuminated  by  the  point  of  light  displayed 
on  the  CRT;  the  difference  amplifier  and  threshold  detector  which  determine  whether 
trace  or  background  was  illuminated;  the  digital  computer;  and  the  magnetic  tape  units. 
The  computer  is  used  to  move  a  spot  of  light  over  the  film,  in  an  appropriate  manner, 
to  record  the  output  of  the  threshold  detector,  and  to  record  the  digital  data  on  mag¬ 
netic  tape. 

The  film  reading  system  described  has  been  in  use  since  March  1963,  and  in  the 
ensuing  six  months  the  feasibility  of  rapid,  automatic  digitization  of  A-scope  film  has 
been  clearly  demonstrated.  More  than  60,000  radar  traces  have  been  digitized  at  a 
reading  rate  ranging  from  3  to  12  seconds  per  trace.  The  reading  rate  is  principally 
a  function  of  the  number  of  light  points  displayed.  The  number  of  light  points  that 
must  be  displayed  is  primarily  a  function  of  film  quality,  film  format,  and  the  number 
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Fig.  1  Programmable  film  reader 


of  samples  desired  across  the  trace.  For  low  quality  film,  e.g. ,  film  with  appreciable 
photographic  noise,  a  program  is  employed  which  applies  a  matched  filter  algorithm  to 
the  film  reader  outputs.  This  filtering  process  can  require  as  much  as  100  seconds 
reading  time  per  trace.  For  high  quality  film,  a  program  is  employed  which  substitutes 
a  simple  selection  algorithm  for  the  matched  filter  routine.  This  program  requires 
about  3  seconds  reading  time  per  trace.  Because  of  this  significant  time  saving  obtain¬ 
able  with  good  quality  film,  a  major  effort  has  been  made  to  improve  film  production 
procedures. 

B.  Equipment  Components 

The  Lincoln  Laboratory  film  reading  system  shown  in  Fig.  2  consists  of  four 
major  pieces  of  equipment: 

(i)  a  digital  computer, 

(ii)  a  CRT, 

(iii)  two  magnetic  tape  units,  and 

(iv)  the  film  transport  and  electro -optical  comparison  circuit. 

The  commercial  versions  of  the  first  three  equipment  components  currently  in  use  are 
described  in  Digital  Equipment  Corporation  publication  #  F-15D,  entitled  "PDP-1 
Handbook",  excerpted  in  Sections  1,  2,  and  3  below. 

i.  Digital  Computer 

The  digital  computer  used  in  this  system*  is  a  solid  state,  single-address, 
single-instruction,stored-program  machine  with  five-megacycle  circuitry,  magnetic 
core  storage  with  5-microsecond  access,  and  18  bit  parallel  processing.  As  currently 
used,  the  machine  consists  of  the  central  processor  with  a  4096  word  memory  module, 
(expandable  in  units  of  4096  words  to  65,536  words),a  paper  tape  reader,  a  paper  tape 
punch,  and  an  on-line  typewriter.  The  central  processor  contains  the  control  unit,  the 
arithmetic  unit,  the  in-out  transfer  control,  the  memory  module  and  a  one-channel 
sequence  break  system. 

*  The  PDP-1  built  by  Digital  Equipment  Corporation. 
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Fig.  2  Lincoln  Laboratory  film  reading  system 
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2.  Cathode  Ray  Tube  (CRT) 

The  CRT  has  magnetic  focusing  and  deflection  provided  by  solid-state  circuitry. 
Using  a  16-inch  tube,  it  has  a  raster  size  of  9.25x9.25  inches  with  1024x1024  address¬ 
able  locations,  of  which  512  are  resolvable  along  each  axis.  The  display  of  each  point 
requires  50  microseconds  and  is  accomplished  by  means  of  an  instruction,  "Display 
One  Point  on  CRT".  The  points  are  displayed  with  an  accuracy  of +  3  per  cent  of  the 
raster  size. 

3.  Programmed  Tape  Control  and  Tape  Transports 

The  computer  in  this  system  is  equipped  to  use  magnetic  tape  as  an  input-output 
medium  by  the  installation  of  suitable  magnetic  tape  controls  and  tape  transports.  The 
tape  control  transfers  information  between  the  computer  Input -Output  register  and 
magnetic  tape  one  character  (7  bits)  at  a  time.  All  transfer  operations,  including 
timing,  formatting,  error  checking,  and  assembly  of  characters  into  computer  words 
are  performed  by  stored  programs.  The  use  of  the  tape  control  allows  a  choice  of 
tape  format,  including  the  standard  IBM  format  of  200  7-bit  characters  per  inch,  and 
inter-record  gap  of  3/4  inch  and  an  inter-file  gap  of  3  1/2  inches.  * 

4.  Film  Transport 

The  film  reader  and  transport  mechanism  used  in  the  digitization  consists  of  a 
twin-lens  device  built  at  Lincoln  Laboratory  for  use  on  the  TX-2  computer  and  later 
modified.  Through  electronic  circuitry,  the  film  reader  can  communicate  with  the 
computer. 

The  film  reading  equipment  must  do  two  things:  (i)  detect  and  indicate  the 
passage  of  light  through  the  film  and  (ii)  advance  the  film  under  program  control. 

The  first  task  is  carried  out  by  the  photomultipliers  and  electronic  circuitry;  the 
second  task  is  accomplished  under  program  control  by  the  equipment  described  below. 

*This  system  has  now  been  changed  to  permit  recording  densities  of  556  and  800 
characters  per  inch  (see  Section  III). 
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When  all  of  the  traces  within  view  of  the  reader  have  been  scanned,  the  program 
causes  the  film  to  advance  by  actuating  a  flip-flop  in  the  computer  (called  "Program 
Flag  6").  The  film  is  advanced  by  an  8-sprocket  drive  wheel  turned  by  a  Geneva  drive 
which  makes  1/4  revolution  for  every  whole  revolution  of  the  driving  motor.  When 
flag  6  is  on,  the  film  advance  motor  runs,  advancing  the  film  by  two  sprocket  holes 
per  revolution.  A  cam,  mounted  on  the  motor  shaft,  in  conjunction  with  a  microswitch 
senses  and  reports  to  the  computer  every  revolution  of  the  motor  shaft.  In  this  way, 
the  computer  may  turn  on  the  motor,  count  its  revolutions,  and  thus  know  how  far  the 
film  will  have  been  advanced. 

C-  Film  Reading  Program 

In  principle,  the  equipment  described  in  this  report  could,  with  suitable  computer 
programs,  be  used  to  read  any  signals  or  patterns  that  can  be  photographed  in 
black  and  white.  As  currently  implemented,  the  system  reads  A-scope  photographs. 

The  logic  of  the  program  may  be  conveniently  divided  into  four  principal  parts: 

(i)  the  Set  Up  and  Monitoring  Routines, 

(ii)  the  Vertical  Scan  Subroutines, 

(iii)  the  Lateral  Scan  and  Film  Advance  Routines,  and 

(iv)  the  Data  Recording  Subroutines. 

The  relation  of  these  routines  to  the  film  reading  process  is  shown  in  Fig.  3. 

1.  Set  Up  and  Monitoring  Routines 

The  Set  Up  and  Monitoring  Routines  include  a  typewriter  control  routine  which 
permits  the  film  reading  operator,  by  using  the  on-line  typewriter,  to  write  a  title 
record  on  magnetic  tape,  advance  the  magnetic  tape  a  given  number  of  records,  initiate 
scanning  to  locate  the  traces  in  view  of  the  reader,  determine  and/or  change  the  con¬ 
tents  of  parameter  locations  in  the  program,  etc. 
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Fig.  3  General  flow  diagram  of  program  operation 
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At  the  end  of  a  successful  read -in  of  the  punched  paper  program  tape,  the  program 
initiates  a  carriage  return.  At  this  point  the  operator  may  strike  on  the  typewriter  any 
one  of  20  keys  (1,  0-7,  /,  "tab",  "carriage  return",  "backspace",  s,  c,  g,  p,  e,  r,  m) 
which  will  be  recognized  by  the  program  as  a  signal  to  transfer  to  a  particular  sub¬ 
routine  or  program  location;  to  any  other  character,  the  program  responds  with  a 
question  mark  and  remains  in  the  typewriter  listening  loop.  The  characters  recognized 
by  the  program  when  it  is  in  the  control  loop  and  the  action  it  will  undertake  when  each 
character  is  typed  are  described  below. 

a.  Titling  Routine  (1)  Typing  1  causes  the  program  to  go  to  a 
titling  routine.  At  this  point  the  operator  may  type  as  many  as  120  characters  which 
will  be  accepted  as  a  title  to  be  written  on  magnetic  tape.  This  routine  causes  the 
title  to  be  stored  in  memory,  the  actual  writing  on  tape  being  accomplished  by  striking 
"g"  (see  p.  io).  The  Titling  Routine  is  terminated  with  a  carriage  return. 

b.  Octal  Corrector  Routine  (Digits  0-7,  /,  tab ,  backspace,  carriage 
return)  Any  one  of  these  characters  on  type-in  causes  the  program  to  transfer  to  a 
routine  called  the  "Octal  Corrector",  the  digits  being  interpreted  as  octal  numbers. 

The  Octal  Corrector  is  used  to  determine  and/or  change  the  contents  of  a  register  in 
the  computer.  Typing  in  the  four  octal  numbers  designating  a  core  location  followed 
by  a  slash  causes  the  routine  to  initiate  a  tab,  produce  a  type-out  in  octal  of  the  con¬ 
tents  of  that  register,  and  initiate  a  second  tab.  After  a  type-out,  if  the  operator 
wishes  to  replace  the  current  contents  with  new  contents,  he  may  type  in  the  new 
contents  (in  octal),  and  then  strike  the  carriage  return  key.  If  the  operator  is  satisfied 
with  the  register  contents  and  wishes  to  make  no  change,  he  simply  strikes  the  carriage 
return  key,  in  which  case  the  contents  of  the  core  location  addressed  by  the  last  type- 
out  will  be  typed  out.  This  register  may  be  changed  by  the  operator,  as  described 
above.  Use  of  tab  permits,  among  other  things,  the  insertion  of  program  patches. 

After  the  initial  type-out  of  the  contents  of  a  register,  by  typing  "backspace"  instead 
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of  "carriage  return",  the  operator  can  cause  the  Octal  Corrector  subroutine  to  advance 
to  the  next  location  in  sequence,  thus  avoiding  the  need  to  type  each  new  core  location. 

After  each  "backspace",  he  may  alter  the  contents  of  the  register  or  not,  as  he 
desires.  The  "backspace"  is  useful  for  getting  a  type-out  of  the  contents  of  a  number 
of  successive  registers. 

c.  Initial  Scan  Routine  (s)  Typing  "s"  causes  the  program  to 
transfer  to  a  routine  which  initiates  a  vertical  scan  at  an  x-location  set  by  the  Test 
Word  switches  on  the  console.  The  vertical  scan  is  used  to  locate  the  traces  within 
a  single  viewing  frame.  The  location  information  is  used  by  other  routines  to  deter¬ 
mine  when  to  initiate  a  film  advance.  For  each  point  seen  along  the  y-axis  during 
the  vertical  scan  a  number  is  stored  in  a  table  whose  register  location  corresponds 
to  the  x-position  being  scanned. 

When  the  routine  is  in  operation,  the  vertical  scan  line  is  displayed  on  the  scope 
along  with  markers  near  the  lower  and  upper  ends  of  the  scope  showing  the  lower  and 
upper  limits  respectively  of  the  viewing  frame  used  for  film  reading.  Offset  to  the 
right  of  the  vertical  scan  line,  a  point  is  displayed  for  every  point  seen  on  the  film 
during  the  vertical  scan. 

During  the  operation  of  this  routine,  the  operator  can  make  optical  adjustments 
to  the  signal  and  reference  lenses  until  the  offset  points  from  the  vertical  scan  line 
correspond  to  the  number  and  positions  of  the  traces  on  the  section  of  film  being 
viewed.  This  is  a  very  critical  part  of  the  set-up  prior  to  going  into  the  automatic 
film  reading  mode  since  the  initial  settings  of  the  trace  positions  will  be  used  by  the 
program  to  locate  automatically  the  subsequent  traces  to  be  read. 

d.  Initial  Calculating  Routine  (c)  Typing  "c"  causes  this  routine 
to  search  the  table  set  up  by  the  scanning  routine  described  in  (c)  above,  and  applies 
an  exponential  filter  on  the  number  of  points  seen.  The  location  of  a  trace  is  the 
average  of  the  position  where  the  filter  output  rises  above  and  falls  below  a  threshold. 
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The  location  of  each  trace  "seen",  as  defined  by  this  process,  is  typed  out  if  sense 
switch  4  is  up.  The  positions  typed  out  are  the  y-positions  of  each  of  the  traces  at 
the  x-location  set  for  the  scanning  routine.  In  addition  to  computing  the  estimated 
trace  locations,  this  routine  also  computes  tracking  parameters  to  be  used  by  the 
film  advance  routine  in  determining  subsequent  trace  positions. 

e.  Go  Routine  (g)  This  character  causes  the  program  to  transfer 
to  a  program  location  which  writes  the  title  record  on  the  tape  and  starts  the  film 
reading  process.  As  the  film  reading  progresses  through  various  phases,  the  program 
checks  the  computer  console  sense  switch  settings.  There  are  six  sense  switches  on 
the  console  that  may  be  set  by  the  operator.  If  sense  switch  1  on  the  computer  is  turned 
on  (i.  e.  ,  the  toggle  switch  is  put  in  the  up  position),  the  program  will  repeatedly 
reread  one  trace  without  writing  the  data  on  the  tape.  Since  the  scanning  will  appear 

on  the  CRT,  the  operator  can  make  fine  optical  adjustments  to  optimize  the  reading 
process.  If  sense  switch  2  is  on,  all  the  traces  within  view  of  the  reader  will  be  read 
without  writing  the  data  on  the  tape.  If  sense  switch  3  is  on,  the  program  will  read 
all  the  traces  in  view  and  then  cause  the  film  to  be  advanced  for  the  next  set  of  traces 
without  recording  the  data  on  magnetic  tape. 

If  sense  switch  6  is  on,  the  program  will  cause  a  momentary  display  of  the  trace 
as  read;  and  if  sense  switch  4  and  6  are  both  on,  the  trace  displayed  will  be  held  on 
the  scope. 

f.  Proceed  Routine  (p)  Typing  "p"  causes  the  program  to  transfer 
to  a  program  location  a  few  instructions  beyond  the  starting  location  of  the  Go  Routine 

at  which  point  the  film  reading  process  begins  without  writing  the  title  record.  The 
operator  uses  the  "p"  type-in  whenever  he  wishes  to  resume  reading  after  an  inter¬ 
ruption.  The  program  assumes  that  the  tracking  parameters  are  in  order.  If  they  are 
not,  the  operator  should  first  go  through  the  "s"  and  ”c"  type-in  routines  before  typing 


g.  End  Routine  (e)  Typing  "e"  causes  the  program  to  transfer 
to  a  routine  which  writes  an  end-of-file  mark  on  the  tape  and  then  rewinds  it. 

h.  Restart  Routine  (r)  Typing  "r"  causes  the  program  to 
transfer  to  a  routine  which  rewinds  the  tape  on  which  the  digitized  data  has  been 
recorded,  spaces  it  forward  a  controlled  number  of  records,  then  restarts  the  pro¬ 
cessing  at  the  location  transferred  to  by  "p".  The  number  of  records  to  be  spaced 
forward  is  held  in  a  register  labeled  "rc".  The  restart  is  useful  to  the  operator,  if 
for  some  reason  he  wishes  to  reread  a  section  of  film.  He  can  back  the  film  in  the 
reader,  set  the  "rc"  register  to  space  forward  the  appropriate  number  of  records  and 
then,  by  striking  "r",  cause  the  program  to  resume  film  reading  from  that  point. 

The  "rc"  register  should  be  set  to  a  number  which  is  the  number  of  traces 
recorded  on  the  tape  plus  one. 

i.  Macroscope  (m)  Typing  "m"  causes  the  program  to  transfer 
to  a  routine  called  Macroscope  which  serves  as  an  aid  to  the  operator  in  making 
approximate  setting  of  the  optics  by  scanning  the  area  within  the  view  of  a  raster 
512x33b  scope  coordinates.  The  results  of  the  scan  are  displayed  immediately  below 
or  above  the  viewed  area.  By  setting  test  word  switches  on  the  computer  console,  the 
operator  can  move  the  location  of  the  scanning  raster  horizontally  and/or  vertically. 
This  feature  of  the  routine  is  useful  in  determining  the  trace  boundaries  on  the  x-axis. 

After  the  initial  procedure  described  above,  the  program  is  ready  to  read  film 
automatically.  Basic  to  the  reading  are  the  Lateral  Scan  Routine  and  the  Vertical 
Scan  Subroutines  which  are  described  below. 

2.  The  Vertical  Scan  Subroutines 

The  actual  digitization  of  the  traces  on  the  film  is  done  by  making  a  sequence  of 
vertical  scans  across  the  face  of  the  CRT.  Each  such  scan  is  accomplished  by  a 
Vertical  Scan  Subroutine,  two  of  which  are  in  current  use.  In  each  case,  the  sub¬ 
routine  searches  within  preset  upper  and  lower  limits  until  trace  points  are  found, 
but  the  procedures  employed  and  the  criteria  for  determining  when  the  trace  has  been 
found  differ  considerably. 
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3.  The  Lateral  Scan  and  Film  Advance  Routines 

The  right  and  left  movement  of  the  vertical  scan  is  controlled  by  the  Lateral 
Scan  Routine.  Under  control  of  this  routine,  the  first  vertical  scan  is  made  at 
x  =x0,  a  quantity  determined  by  the  operator,  and  all  subsequent  ones  are  made  at 
x=(x0+nl),  n=  1,2,3, ,  and  I  is  an  incrementing  quantity  also  set  by  the  operator. 
After  the  preset  right  hand  x-limit  has  been  reached,  the  same  procedure  is  resumed 
at  x=xO  with  negative  x-increments  until  the  preset  left  hand  x-limit  has  been  reached. 
At  this  point,  the  program  decides  whether  another  trace  is  within  view  or  whether 
the  film  should  be  advanced.  At  the  completion  of  this  scan  procedure,  a  table  called 
the  "Signal  Table"  has  been  filled  with  the  ordinates  of  the  trace  determined  by  the 
Vertical  Scan  Subroutine  for  each  point  sampled  along  the  x-axis.  The  program  may 
be  adjusted  to  take  as  many  as  512  vertical  scans  per  radar  trace. 

When  the  scanning  of  a  single  radar  trace  has  been  completed,  the  film  reader 
moves  down  the  film  to  find  the  next  radar  trace.  This  is  done  under  the  control  of 
the  "trace  location"  portion  of  the  Lateral  Scan  and  Trace  Location  Routines.  Specifi¬ 
cally,  when  the  end  of  a  trace  has  been  found,  and  all  "raw"  data  have  been  recorded, 
the  probable  location  of  the  next  trace  is  computed.  When  it  is  necessary  to  advance 
the  film  to  view  the  next  radar  trace,  the  motor  is  turned  on.  The  last  trace  found  is 
tracked  as  the  film  advances  in  order  to  determine  how  far  the  film  has  moved.  The 
anticipated  position  of  the  next  radar  trace  is  updated  to  reflect  the  movement  of  the 
film. 

4.  Data  Recording  Subroutines 

The  subroutines  write  a  514-word  record  on  magnetic  tape.  The  first  two  words 
are  the  trace  count,  and  a  spare,  and  the  remaining  512  words  are  the  Signal  Table. 
The  subroutines  are  also  used  to  place  a  title  at  the  beginning  and  an  end-of-file  at  the 
end  of  the  magnetic  tape. 
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II.  FILM  READING  PROGRAM  SYSTEM 

The  Film  Reading  Program  System  is  a  group  of  related  computer  programs 
written  for  the  Digital  Equipment  Corporation  (DEC)  PDP-1  Computer  in  the  MACRO 
assembly  language  and  is  meant  to  be  used  with  the  Lincoln  Laboratory  Programmable 
Film  Reader,  described  in  Section  I.  * 

These  programs,  which  now  exist  in  three  "series",  are  the  result  of  an  exten¬ 
sive  revision  of  the  so-called  Radar  Scan  and  Baseline  Scan  programs  originally 
written  for  use  with  the  film  reader.  The  three  "series"  are  designed  to  read  films 
of  three  different  formats  (see  Fig.  4): 

Series  1  -  A-scope  traces  on  strip  film, 

Series  2  -  A-scope  traces  on  strip  film  with  a  single  fiducial  mark,** 

Series  3  -  Project  radar  film,  framed  film  with  A-scope  traces, 
timing  light  and  fiducial  marks  . 

In  addition,  there  are  two  modified  programs,  Series  la  and  Series  2a,  which 
are  written  to  read  traces  whose  orientation  is  upside  down  compared  to  those  read 
by  the  Series  1  and  2  programs. 

Since  all  of  the  programs  of  the  system  are  similar  in  many  respects,  only  the 
Series  1  program  has  been  described  completely,  with  the  differences  between  it  and 
the  other  programs  being  described  in  like  detail.  Textual  description,  flow  charts 
and  listings  have  been  supplied  for  each. 


*  Section  I  contains  a  general  flow  diagram  (Fig.  3)  of  the  original  film  reading  programs 
as  well  as  a  brief  description  of  each  major  program  block. 

**  A  zero -voltage  reference  mark  at  the  beginning,  and  sometimes  the  end,  of  the 
trace;  about  one  psec  long  in  a  10  fisec  sweep. 
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SERIES  I  FORMAT 


SERIES  la  FORMAT 


Fig.  4  Film  formats 


A.  Series  1 

The  computer  program  described  below  is  similar  in  many  ways  to  the  program 
described  in  Sect.  I  and  corresponds  closely  to  the  general  flow  diagram  given  there 
as  Fig.  3.  The  following  will  describe  the  various  routines  of  the  Series  1  program 
in  some  detail  and  should  provide,  in  conjunction  with  the  corresponding  flow  charts 
and  listings,  sufficient  material  to  enable  the  reader  to  understand  fully  its  operation. 

The  program  operates  most  of  the  time  in  one  of  two  states:  it  is  in  a  two 
instruction  "listening  loop"  in  the  typewriter  control  routine,  or  in  a  long  loop  in  the 
lateral -scan  control  routine.  In  the  former,  the  computer  is  waiting  for  instruction 
from  the  operator  and  in  the  latter,  it  is  actually  reading  the  film.  There  are  other, 
less  frequently  used,  excursions  possible  to  which  control  may  be  switched  from  the 
typewriter  and  which  lead  back  to  the  typewriter  control  routine.  These  will  be 
described  in  turn. 
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film  reading  program  system 


series  1  25  feb  64 


/definitions 

define  bintape 

dzm  677 

termin 

define  bcdtape 

law  1 
dac  677 

termin 

define  rewind 

Jsp  5 

termin 


define  space 

dac 

Jsp 

0 


Jsp 


termin 

define  1 

weof 

termin 

s=ls 

msm=iot 

73 

mcs=iot 

mcb=iot 

70 

mwc=lot 

71 

mrc=iot 

72 

start 

.+2 

14 


163 


*The  material  on  this  "title  page"  of  the  program  listing  consists  of  a  set 
of  macro-instruction  definitions  and  parameter  assignments  used  by  the 
assembly  program  in  producing  the  binary  program.  The  macros  are  used 
throughout  the  program  and  their  definitions  should  be  noted  by  the  reader 
before  attempting  to  follow  the  listings. 
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1.  Typewriter  Control  Routine 

The  object  of  this  routine  is  to  provide  a  mechanism  whereby  the  computer  may 
pause  in  its  operation,  wait  for  a  command  from  the  operator  via  the  on-line  typewriter 
and  then  transfer  control  to  other  routines  corresponding  to  typed  commands.  Its 
first  instruction  is  located  at  beg=  1040  and  is  the  first  instruction  performed  after 
read-in  of  the  program. 

The  so-called  "listening-loop"  is  the  pair  of  instructions  at  ctj+1  and  ctj  +  2. 

On  the  way  to  this  loop,  the  program  checks  to  see  that  the  automatic  multiply  and 
divide  switches  are  set  and,if  not,  causes  "mus"  and/or  "dis"  to  be  typed  out.  Then 
a  carriage  return  is  typed  out,  registers  are  initialized,  the  AC,  10  and  program  flags 
are  cleared  and  the  machine  enters  the  listening-loop,  where  it  remains  until  a  type¬ 
writer  key  is  struck  (i.e. ,  program  flag  1  is  set  to  1). 

This  version  of  the  program  recognizes  the  characters:  a,  c,  e,  g,  1,  m,  p, 
r,  s,  carriage  return,  tab,  backspace,  slash  and  the  octal  digits  0-7.  To  all  others, 
it  responds  with  a  typed  out  question  mark.  The  digits  0-7  are  assembled  as  an  octal 
string  in  the  register  wrd.  while  the  other  characters  cause  a  transfer  of  control  to 
other  parts  of  the  program. 

The  transfer  is  accomplished  by  the  use  of  a  dispatch  table  (stored  from  dtb  to 
dte  -1).  Each  register  of  the  table  has  in  the  left  six  bits  the  CONCISE  code  for  one 
of  the  characters  recognized  by  the  program  and  in  the  right  twelve  bits,  the  address 
of  the  corresponding  routine. 


17 


TYPEWRITER  CONTROL  ROUTINE 


VPA-2168 
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typewriter  control  routine  15  Jan  64 
1040/ 


beg. 

law  100 

mus  (0 

lio  (flex  mus 
sza 

Jmp  erp 
law  100 
ell 

dis  (200 
nop 

llo  (flex  dls 
sza  i 
jmp  erp 

/check  for  automatic  multiply 

ctl. 

Ho  (77 
tyo 

eta. 

clc 

dac  “chi 
dzm  wrd 

ctj. 

cla  cli  7-opr 
szf  1  1 
jmp  .-1 

/listen  loop 

ctb. 

cla  ell  7-opr 
tyi 

rcr  6s 
dac  ch 
sub  (100000 
sma 

jmp  ctd 
add  (070000 
sma 

/not  a  digit  between  1  and  7 

jmp  n 

/it  is  a  digit  between  1  and  7 

ctd. 

init  etc,  dtb 

/not  a  digit  between  1  and  7 

etc, 

lac 

dap  ctx 
xor  ctx 
sad  ch 
jmp  ctf 

/search  for  control  character 

Index  etc,  (lac  dte 

,  etc 

err. 

llo  (flex  ? 

/not  a  legal  character 

erp. 

repeat  3 ,  ril  6s 

Jmp  ctl 

tyo 

19 


ctf , 

ctx, 

zro, 

n, 


dtb. 


dte, 

start 


lio  chi  /dispatch  on  control  character 

lac  wrd 

spi 

lac  Twt 
jmp  1  ctx 
0 

dzm  ch 

lac  ch  /digits 

ral  3s 

ior  wrd 

ral  3s 

dac  wrd 

dzm  chi 

jmp  ctj 

char  11  ttl  /character  dispatch  table 

char  Is  sea 

char  lm  a 

char  lg  bgn 

char  lp  pra 

char  le  end 

char  lc  cv 

char  lr  rst 

char  10  zro 

770000  cr 

360000  ta 

750000  bs 

char  1/  sis 

char  la  adv 
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2.  Macroscope 

When  the  computer  is  in  the  typewriter  listening-loop  and  an  "m"  is  typed, 
control  is  transferred  to  a  routine  called  "macroscope"  —  a  program  used  to  provide 
the  operator  with  a  view  of  what  the  film  reader  is  seeing.  To  this  end,  a  raster  is 
displayed  on  the  scope  face  and  each  point  of  it  seen  by  the  reader  is  redisplayed 
after  being  offset  vertically  to  an  area  not  covered  by  the  raster.  The  program  cycles 
until  stopped  (by  setting  flag  1  via  the  typewriter)  and  during  this  time  the  position  of 
the  raster  is  set  by  means  of  the  test  word  switches:  x  controlled  by  positions  0-8  and 
y  by  positions  9-17.  Thus  the  operator  may  view  all  portions  of  the  film  visible  to  the 
reader. 

In  order  that  the  (apparent)  cycle  time  will  be  reasonably  short,  the  program  is 
written  so  that  the  full  cycle  consists  of  sixteen  sub-cycles,  each  of  which  displays  a 
raster  with  only  1/ 16  the  density  of  the  full  raster  (which  is  made  up  of  every  other 
addressable  location).  To  do  this,  the  512x336  point  raster  is  divided  into  64x42 
boxes  with  eight  points  per  side,  and  during  each  sub-cycle  one  point  is  displayed  from 
each  box.  Incrementing  is  done  in  both  directions  by  2  points,  so  that  the  full  cycle 
consists  of  display  of  16  points  in  each  box. 

Thus ,  the  program  begins  by  displaying  the  lower  left  point  of  each  box  in  the 
bottom  row  of  the  raster,  redisplaying  the  points,  relocated  in  the  y  direction,  as 
they  are  seen  by  the  reader.  (The  relocation  is  down  if  the  initial  y  location  from  the 
test  word  is  positive  and  up  if  negative. )  Next,  the  program  moves  up  one  row  of  boxes 
at  a  time  and  displays  the  lower  left  point  of  each  box.  When  the  top  row  is  finished 
(and  displayed)  the  sub-cycle  is  over. 

The  next  sub-cycle  displays  point  (0, 1)  of  each  box  --  assuming  that  the  lower 
left  corner  was  (0,0)  —  and  the  following  sub-cycles  display  points  (0,2)  (0,3),  (1,0), 
(1,1),  (1,2),  (1,3),  (2,0),  (2,1),  (2,2),  (2,3),  (3,0),  (3,1),  (3,2),  and  (3,3),  thus 
completing  the  display  of  the  raster. 
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The  coordinates  entered  in  the  test  word  are  interpreted  as  the  coordinates  of 
the  center  of  the  raster.  The  use  of  only  9  bits  for  each  coordinate  implies  that  the 
maximum  values  of  each  are  +  377  (octal)  or  +  255  (decimal).  Thus,  since  the  raster 
is  512  points  wide,  a  maximum  setting  of  the  test  word  corresponds  to  the  raster 
being  at  the  edge  of  the  scope  in  the  x-direction,  though  not  in  the  y -direction.  Never¬ 
theless,  the  range  is  easily  enough  to  cover  the  whole  area  visible  to  the  reader,  which 
is  restricted  by  the  geometry  of  the  system  to  about  one-half  of  the  area  of  the  scope 
face. 

The  macroscope  routine  may  be  used  to  determine  the  left  and  right  limits  for 
the  scanning  process  by  moving  the  raster  until  an  edge  coincides  with  the  limit  of 
the  desired  scan.  The  test  word  switches  may  be  read  to  get  the  x-coordinate  of  the 
center  of  the  raster  and  the  coordinate  of  the  right  edge  will  then  be  this  number  plus 
400,  while  the  left  edge  will  be  the  number  minus  400.  The  resulting  numbers  may 
then  be  used  as  c  (xmn)  and  c  (xmx)  in  the  lateral  scan  routine. 

The  macroscope  program  may  also  be  used  to  align  the  traces  on  the  film  with 
the  axes  of  the  scope.  By  watching  the  order  in  which  points  are  redisplayed  and 
tilting  the  reader  left-to-right,  the  redisplay  of  a  horizontal  line  may  be  made  to 
occur  during  a  single  horizontal  scan  of  the  macroscope  program.  When  this  condition 
occurs  the  film  horizontal  and  the  scope  horizontal  coincide. 
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macroscope  16  Jan  64 


a. 


hf 


t. 


k. 


lat+cli  7-opr 
rcr  9s 
ral  9s 
sar  Is 

sub  (200000+1000 

dac  1x0 
add  (400000 

dac  1x1 
add  (4000 
dac  Ixm 
swap 
sar  Is 
dac  T 

repeat  3>  sar  2s 
sub  U2 5000+1000 
dac  yOO 
add  _[250000 
dac  yll 
add  j(4000 
dac  ymx 
lac  t 

lio  (-251777 

spa 

lio  (2 52000 
dio  vr 

law  1000 
add  1x1 
dac  1x1 
xct  h 
add  1x0 
dac  1x0 
lac  yll 
dac  lyl 
lac  yOO 
dac  lyO 

xct  h 
add  lyl 
dac  lyl 
xct  h 
add  lyO 
dac  lyO 

swap 
lac  1x0 


/y  to  io 


/set  up  boundaries 


add  t 


/horizontal  interlace 


/vertical  interlace 
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dpy 

szf 

3 

Jmp 

r 

add 

o 

o 

o 

sas 

lxl 

Jmp 

1 

dac 

t 

swap 

add 

o 

o 

o 

sas 

lyl 

jmp 

k 

sas 

ymx 

Jmp 

J 

szf 

1 

Jmp 

ctb 

lac 

t 

sas 

lxm 

Jmp 

h 

Jmp 

a 

dlo 

t 

swap 

add 

vr 

swap 

dpy 

elf 

3 

lio 

t 

Jmp 

11 

start 


/horizontal  sweep 

/vertical  sweep 


/point  seen 
/vertical  relocation 
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3.  Octal  Corrector 

The  octal  corrector  routine  provides  a  means  to  examine  any  register  in  core 
and  change  its  contents  if  desired.  If,  when  the  machine  is  in  the  listening  loop,  an 
octal  string  of  up  to  four  digits*  followed  by  a  slash  is  typed,  control  is  transferred  to 
the  octal  corrector,  which  causes  type-out  of  the  contents  of  the  register  whose  address 
was  typed  in  (this  process  is  called  opening  the  register).  The  machine  then  types  out 
a  tab  and  returns  to  the  listening  loop. 

The  operator  may  then  type  in  an  octal  string  of  up  to  six  digits*  which  will 
replace  the  contents  of  the  "opened"  register.  At  this  point  he  has  three  options: 

(1)  He  may  "close"  the  register  by  typing  a  carriage  return, 
whereupon  the  new  contents  (if  any)  of  the  register  will  be 
stored  and  control  returned  to  the  listening  loop.  If  no 
new  contents  were  typed,  control  is  simply  returned  to 
the  listening  loop. 

(2)  He  may  "close"  the  register  as  in  (1)  and  then  cause  the 
next  sequential  register  to  be  "opened"  by  typing  a  back¬ 
space. 

(3)  He  may  "close"  the  register  as  in  (1)  and  then  cause  the 
register  addressed  by  that  register  to  be  opened  by  typing 
a  tab. 


*  Leading  zeros  may  be  suppressed.  If  six  digits  are  typed,  the  last  four  will  be 
taken  as  the  address.  If  more  than  six  digits  are  typed,  a  word  will  be  formed  by 
performing  successive  Inclusive  OR  operations  between  the  digits  as  they  are  typed 
and  the  previously  formed  word  rotated  left  three  places.  E.  g.  ,  typing  the  seven 
characters  3334445,  leaves  334447  as  the  storage  word;  this  is  obtained  by  performing 

an  IOR  operation  on  the  words  334443  and  000005. 
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OCTAL  CORRECTOR 


3-PA-2I70 


eta 


<32-12701 
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octal  corrector  16  Jan  64 


sis. 

spl 

/was  an  octal  string  typed? 

Jmp  ta6 

/no 

Jmp  ta5 

/yes 

bs. 

spl  1 

/was  a  correction  typed? 

dac  1  tas 

/yes  -  store  It 

Idx  Toe 

Jmp  ta3 

/no  -  compute  address 
/of  next  register 

ta. 

spl  1 

/was  a  correction  typed? 

dac  1  tas 

/yes  -  store  correction 

ta3. 

dac  Twt 

Ho  (77 

/store  address  as  next 
/register  to  be  opened 

tyo 

and  (7777 

/type  carriage  return 

Jda  opt 

lio  (21 

/print  address  of  register 
/to  be  opened 

tyo 

lac  lwt 

/type  slash 

ta5. 

dzm  loc 

ta6, 

dap  loc 

/save  address 

dap  tas 
llo  (36 

tyo 

lac  i  tas 
dac  lwt 

/type  tab 

Jda  opt 
llo  (36 

/type  contents  of  opened  register 

tyo 

Jmp  eta 

/type  tab 

cr. 

spl  1 

/was  a  correction  typed? 

tas. 

dac  eh 

/yes  -  store  correction 

dac  lwt 
lnlt  tas,  eh 

Jmp  eta 

/no 

start 
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4.  Titling  Routine 

The  titling  routine,  to  which  control  is  transferred  when  the  character  "1"  is 
typed,  assembles  up  to  120  characters  in  a  table  of  40  registers  after  converting  them 
from  CONCISE  code  to  IBM  tape  code.  Those  characters  which  have  no  IBM  equivalent 
(e.g. ,  overstrike,  middle  dot,  backspace,  etc. )  are  ignored.  When  the  table  is 
filled  or  a  carriage  return  is  typed,  the  computer  returns  to  the  listening  loop. 


29 


IiltlNC  ROUTINE 
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titling  routine  16  Jan  64 


dimension 

ttl, 

tta. 


ttl. 


tbf (50) 


lio  (202020  /initialize  title  table 

init  tta,  tbf 

dio 

index  tta,  (dio  tbf  50,  tta 

dzm  wcc  /initialize  counter 

init  wcl,  tbf-1 

lio  (36 

tyo  /execute  tab 


listen 
dio  ch 
lac  ch 
sad  (20 
law  12 
sza  i 
law  20 
sad  (57 
law  34 
sad  (56 
jmp  ttl 
sad  (4o 
Jmp  ttl 
sad  (72 
Jmp  ttl 
sad  (74 
Jmp  ttl 
sad  (55 
law  74 
sad  (5^ 
law  4o 
sad  (75 
Jmp  ttl 
sad  (36 
Jmp  ttl 
dac  ch 
sad  (77 
Jmp  tt2 
lio  ch 
isp  wcc 
Jmp  wc8 
law  i  3 
dac  wcc 
idx  wcl 

sad  (lac  tbf  50 


/store  character 

/is  char  concise  0? 

/yes  -  put  BCD  0  in  AC 
/no  -  is  char  concise  blank? 

/yes  -  put  BCD  blank  in  AC 
/no  -  is  char  concise  left  paren? 
/yes  -  put  BCD  left  paren  in  AC 
/no  -  is  char  concise  overstrike? 
/yes  -  ignore  char 
/no  -  is  char  concise  middle  dot? 
/yes  -  ignore  char 
/no  -  is  char  concise  lower  case? 
/yes  -  ignore  char 
/no  -  is  char  concise  upper  case? 
/yes  -  ignore  char 
/no  -  is  char  concise  right  paren? 
/yes  -  put  BCD  right  paren  in  AC 
no  -  is  char  concise  minus? 

/yes  -  put  BCD  minus  in  AC 

/no  -  is  char  concise  backspace? 

/yes  -  ignore  char 

/no  -  is  char  concise  tab? 

/yes  -  ignore  char 
/store  character 

/is  char  concise  carriage  return? 

/yes 

/no 

/index  char  count  -  is  result  +  ? 
/no  -  char  not  first  of  new  word 
/yes  -  char  is  first  char 
/reset  character  counter 

/is  table  filled? 
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wc8, 

wcl. 


tt2. 


tt3. 


start 


Jmp 

ctl 

rir 

6s 

lac 

• 

rcl 

6s 

dac 

i  wcl 

Jmp 

ttl 

lio 

i  wcl 

lac 

wcc 

sza 

sad 

(-1 

Jmp 

eta 

sad 

(-2 

Jmp 

tt3 

ril 

6s 

ril 

6s 

dio 

i  wcl 

Jmp 

eta 

/yes  -  title  complete 
/no  -  move  char  into  10  0-5 
/bring  contents  of  table  register 
/into  AC 

/put  new  char  into  AC  12-17, 
/moving  previous  chars  left  six 
/store  chars  back  into  table 
/go  listen  for  next  character 

/fix  format  of  last  table 
/register  used 


/restore  correctly  formated 
/register 
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5. 


Initial  Scan  Routine 


When  the  character  "s"  is  typed,  control  is  transferred  to  the  initial  scan 
routine,  where  it  remains  while  the  computer  executes  the  instructions  of  a  closed 
loop  until  another  character  is  typed,  whereupon  control  is  transferred  back  to  the 
typewriter  control  routine  at  ctb.  * 

The  routine  displays  a  vertical  scan  one  point  wide  from  the  lowest  addressable 

location  on  the  CRT  to  the  highest  at  an  x-position  determined  by  the  ten  left -most 

bits  of  the  Test  Word.  The  vertical  scan  begins  at  y=  377777  (=400000 _)**  and 

o  o 

advances  in  steps  of  two  scope  points  (1000Q)  until  y=  400001o.  At  this  point  the  scan 

O  O 

has  passed  the  upper  limit  of  the  CRT  raster. 

As  each  point  is  displayed  during  this  scan,  its  light  will  pass  through  the 
optical  system  of  the  reader  and  cause  a  signal  to  be  sent  to  the  computer  or  not 
depending  on  whether  a  trace  point  was  "seen"  or  not.  For  each  point  seen,  the 
routine  displays  a  point  on  the  CRT  at  the  y -coordinate  of  the  point  seen  and  at  an 
x-position  offset  to  the  right  of  the  scan  position  by  40_  points.  This  x-coordinate  is 

O 

computed  at  see,  where  the  quantity  20000  is  added  to  the  contents  of  the  AC, 

-  O 

corresponding  to  an  increase  in  the  x  display  coordinate  of  40o. 

O 

Furthermore,  the  number  1000Q  is  stored  in  a  slot  in  a  table  corresponding  to 

O 

the  y-coordinate  of  each  point  seen.  This  table,  cleared  at  the  beginning  of  the  routine 

at  sca+  1,  extends  from  tbl,  corresponding  to  y=  -777g,  to  tbl +  777,  corresponding  to 

y  =  777  .  The  slot  at  tbl +  377  corresponds  to  y=+  0. 
o 

When  the  scan  reaches  the  top  of  the  scope,  the  routine  computes  the  location  of 
markers  which  show  the  upper  and  lower  limits  of  the  effective  viewing  area  and  dis¬ 
plays  them.  The  table  of  values  and  the  computed  limits  are  used  by  the  initial  position 
calculation  routine  described  next. 


*  The  character  typed  will  be  interpreted  by  the  typewriter  control  routine. 

**  Negative  numbers  in  the  PDP-1  are  represented  by  their  one's  complement.  Thus 
any  octal  number  with  magnitude  400000  or  larger  is  interpreted  as  a  negative  number. 
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initial  scan  16  Jan  64 


sea,  elf  7 

clear  tbl,  tbl  777 
see,  lat  3 

lio  (400000 
Jmp  seg 

scf,  swap 

szf  3 
jmp  see 

seg,  dpy-i 

swap 
szf  1 
Jmp  ctb 
add  (1000 
sas  (400001 
Jmp  scf 
setup  eh,  10 
lac  fmx 
sub  fht 
sal  5s 
dac  Yl 
lat 

dac  chn 
seq,  lac  chn 

lio  fmx 
sil  5s 
dpy 

lio  ti 
dpy 

add  (1000 
dac  chn 
isp  eh 
Jmp  seq 
Jmp  see 

see,  add  (20000 

dpy-i 
dio  eh 
lac  eh 
sar  9s 

add  (tbl  377 
dap  sed 
law  1000 
sed,  dac 

lat  3 


/clear  data  table 


/was  the  point  seen  ? 


/was  a  typewriter  key  struck  ? 
/yes 

/no  -  increment  y 
/reached  top  of  scope  ? 

/no 

/yes  -  setup  to  display  markers 


/display  upper  marker 
/display  lower  marker 


/done  10  points? 

/no 

/yes 

/point  seen 
/display  point  offset 


/compute  storage  location 
/store  in  table 


6.  Initial  Position  Calculation 

The  initial  position  calculation  routine  computes  the  locations  and  spacing  of  the 
traces  within  view  of  the  film  reader  as  seen  by  the  initial  scan  routine.  The  typing 
of  the  character  ”c"  causes  control  to  be  transferred  to  this  routine  at  cv,  where, 
after  preliminary  housekeeping,  the  table  prepared  by  the  initial  scan  routine  is  used 
to  compute  the  locations  of  the  traces  crossed  by  the  scan. 

The  routine  applies  a  simple  exponential  filter  to  successive  entries  in  the  table 
and  then  finds  the  y-values  corresponding  to  pairs  of  successive  crossings  of  a  given 
threshold  by  the  filter  output.  The  trace  locations  are  then  taken  to  be  the  averages 
of  these  y-values. 

The  filter  algorithm  is 

x  =  0  x.  =  \  (v.  +  x  )  (i<0) 

o  ,  11  l-l 

th 

where  v  is  the  i  input  value  from  the  table,  and 
x.  is  the  corresponding  filter  output. 

The  input  values,  as  mentioned  earlier,  are  limited  to  the  set  {0,  1000  }  corresponding 

O 

to  a  point  not  seen  or  a  point  seen,  respectively.  The  threshold  value,  c(thr),  is 
currently  set  at  640o. 

O 

The  filter  output  is  initially  set  equal  to  zero  and,  at  cvl,  the  table  entries  are 
examined  one  by  one  and  the  filter  outputs  computed  until  the  first  pair  of  threshold 
crossings  is  observed.  The  y-values  corresponding  to  these  crossings  then  determine 
the  location  of  the  first,  or  lowest,  trace  (see  Fig.  5a).  The  mean  of  these  two  values 
is  stored  at  mmO,  and  a  counter,  initially  zero,  is  indexed  to  show  that  exactly  one 
trace  has  been  found.  The  process  is  then  restarted  at  cvl  with  the  next  point  of  the 
input  table. 

When  and  if  the  routine  detects  a  second  trace,  its  location—  found  in  the  same 
way  as  the  first  —  replaces  the  location  of  the  first  trace  at  mmO  and  the  difference 
between  the  locations  is  stored  at  mml  (see  Fig.  5b).  The  counter  is  indexed  and 
processing  continues. 
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The  detection  of  a  third  or  subsequent  trace  results  in  its  location  being  stored 
at  mmO,  the  last  difference  at  mml  and  the  difference  between  the  last  two  differences 
(the  last  second  difference)  at  mm2  (see  Fig.  5c).* 

If  sense  switch  4  is  set  as  the  routine  is  entered,  the  trace  locations  are  printed 
out  as  they  are  computed.  **  The  routine  returns  control  to  the  typewriter  control  loop 
at  ctl  when  it  has  finished  its  pass  through  the  input  table. 


*  The  value  stored  at  mm2  is  an  acceleration  term  and  does  not  show  up  on  the  drawings, 
of  course. 

**  The  values  printed  are  not  in  scope  coordinates,  but  rather  are  scope  coordinates 

times  10  . 

8 


3 -PA-2157 


mm  I 

(b)  AFTER  SECOND  TRACE  IS  FOUND 


(c)  AFTER  SUBSEQUENT  TRACES  ARE  FOUND 

Fig.  5  Operation  of  initial  position  calculation  routine 
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INITIAL  POSITION  CALCULATION  ROUTINC 
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initial 

position  calculation 

16  Jan  64 

cv, 

lac 

fmx 

sub 

fht 

sar 

4s 

add 

(tbl  377 

dap 

cvl 

dzm 

ch 

dzm 

chn 

dzm 

mmO 

dzm 

mml 

dzm 

mm2 

dzm 

mt2 

cvl. 

lac 

sas 

(1000 

sza 

i 

Jmp 

•  2 

Jmp 

err 

/not  data  from  scan  program 

add 

ch 

sar 

Is 

/smoothing 

dac 

ch 

sub 

thr 

sma 

Jmp 

cvp 

szf 

2 

Jmp 

cvn 

cvi. 

idx 

cvl 

sub 

(lac  tbl  377 

sal 

4s 

sub 

fmx 

spa 

Jmp 

cvl 

lac 

mml 

cma 

dac 

mml 

dac 

m*fl 

lac 

mmO 

dac 

nfEo 

Jmp 

ctl 

cvp. 

lac 

cvl 

/above  threshold 

sub 

(lac  tbl  377 

szf 

i  2 

dac 

tl 

stf 

2 

Jmp 

cvi 

cvn. 

elf 

2 

/dropped  below  threshold 

lac 

cvl 

sub 

(lac  tbl  377 

add 

tl 

sal 

3s 

dac 

n 

szs 

i  40 

40 

/type  out  positions 


cvq. 


cn2. 


cn3. 


thr. 


start 


Jmp 

cvq 

lio 

(36 

tyo 

Jda 

opt 

idx 

chn 

sub 

(1 

szm 

Jmp 

cn2 

lac 

tl 

dac 

mmO 

Jmp 

cvi 

sub 

(1 

szm 

Jmp 

cn3 

lac 

tl 

sub 

mmO 

dac 

mml 

lac 

tl 

dac 

mmO 

Jmp 

cvi 

lac 

tl 

sub 

mmO 

sub 

mml 

dac 

mm2 

dac 

mt2 

add 

mml 

dac 

mml 

add 

mmO 

dac 

mmO 

Jmp 

cvi 

640 


/one  trace 


/two  traces 


/three  or  more 


/threshold 
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7.  Lateral  Scan  Routine  (Write,  Title,  Restart) 

After  the  preliminary  calculations  have  been  made,  control  may  be  transferred 
to  the  lateral  scan  routine  by  means  of  one  of  three  characters:  g,  r,  or  p.  The 
character  "g"  causes  control  to  pass  to  location  bgn,  where  the  title  previously  stored 
is  written  onto  tape  and  zero  is  stored  in  counters  which  record  the  number  of  records 
on  the  tape,  the  number  of  traces  read  and  the  number  of  times  the  film  has  been 
advanced.  Control  then  passes  to  pra. 

The  character  "r"  causes  control  to  go  to  location  rst,  where  the  magnetic  tape 
on  which  output  is  stored  is  caused  to  be  rewound  and  then  spaced  forward  the  number 
of  records  given  at  location  ix.  Control  then  passes  to  pra. 

The  character  "p"  causes  control  to  pass  directly  to  pra,  where  the  position  of 
the  first  trace  to  be  read  is  computed.  In  general,  the  program  will  start  by  reading 
the  second  trace  from  the  top  —  the  only  exception  being  the  case  where  only  one  trace 
is  seen  by  the  initial  scan  routine,  in  which  case  the  program  begins  with  that  trace. 

The  routine  then  stores  the  x-coordinate  of  the  left-most  sample,  c  (xmrt),  in 
the  output  record  and  computes  and  stores  the  length  of  the  output  record  based  on  the 
x  limits  —  c  (xmn)  and  c  (xmx)  —  preset  by  the  operator. 

At  location  el,  the  main  loop  begins  with  a  check  of  flag  1  to  see  if  a  typewriter 
key  was  struck.  If  so,  control  is  transferred  back  to  the  typewriter  control  loop, 
otherwise  preliminary  setup  of  limits  and  clearing  of  data  table  is  done.  At  hs,  an 
indicator,  nps,  is  set  to  its  initial  value  of  unity;  this  is  the  "no  point  seen"  indicator 
which  is  set  to  zero  if  a  scan  of  a  trace  detects  no  points. 

The  program  then  does  a  single  vertical  scan  at  x=  c  (xO)  between  y  =  c  (yll)  and 
y  =  c  (yul),  by  a  jsp  (JumP  and  Save  Program  counter)  instruction  to  the  vertical  scan 
subroutine.  This  routine  stores  the  y-coordinate  of  the  trace  found  (if  any)  at  location 
yf .  Thus,  the  program  has  at  this  point  the  precise  location  of  the  trace  which  it  will 
read  at  the  x-location  where  reading  will  begin. 
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The  next  few  instructions,  up  to  §2,  are  designed  to  allow  the  program  to  read 
only  every  n1^1  trace,  where  n  is  a  parameter  which  may  be  set  by  the  operator.  The 
instruction  at  skn  is  assembled  as  lawi  1  and  hence  the  program  will  read  every  trace 
without  skipping  any.  Any  other  value  may  be  substituted  for  the  1  by  using  the  octal 
corrector. 

At  e2,  the  upper  and  lower  scanning  limits  are  recomputed  on  the  basis  of  the 
location  of  the  trace  just  detected. 

Now  begins  the  actual  sampling  of  the  trace  amplitudes.  In  a  six-instruction  loop 
starting  at  hsa,  the  program  causes  a  series  of  vertical  scans  to  be  made  by  the  vertical 
scan  subroutine  at  intervals  of  two  scope  units  starting  at  x=  c(xO)  and  continuing  until 
x=  (xmx).  The  x  and  y  coordinates  are  reset  to  their  original  values  and,  at  £isl,  a 
seven-instruction  loop  repeats  the  scanning  to  the  left  from  x=  c(x0)-2  to  x=  c(xmn). 
Note  that  since  the  incrementing  is  by  two  units  and  the  test  at  the  end-points  is  one  for 
equality,  the  numbers  used  as  origin  and  left  and  right  limits  must  all  be  even  or  all  odd. 

The  vertical  scan  subroutine  stores  the  amplitudes  found  in  a  table  —  called  the 
signal  table  —  located  at  tbl  (=  tba).  This  table  forms  a  major  part  of  the  output  record 
(see  below). 

At  hsc.  a  test  is  made  to  see  if  any  points  at  all  were  seen  in  the  course  of  the 
scan:  if  none,  the  program  will  cause,  at  hsj,  the  characters  "nps"  to  be  typed  and 
will  then  transfer  control  back  to  the  typewriter  listening  loop.  If  at  least  one  point  was 
found,  the  routine  continues  to  hst,  at  which  point  begins  a  section  to  find  the  mean  of 
the  amplitudes  of  the  points  found.  As  an  additional  safeguard,  the  program  causes  the 
characters  "nls"  to  be  typed  out  —  and  returns  to  the  typewriter  listening  loop  —  if  no 
amplitude  values  are  found  in  the  table  of  amplitudes.  The  mean  value  when  found  is 
stored  at  p2m. 

At  location _rd,  the  routine  checks  the  position  of  sense  switch  6  to  see  whether 
or  not  it  is  desired  to  redisplay  the  contents  of  the  signal  table.  If  not,  control  is 
transferred  to  location  bg,  but  if  so,  the  routine  sets  up  a  counter,  t3,  to  control  the 
number  of  times  the  display  will  be  cycled.  This  number  can  be  changed  easily  by 
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means  of  the  octal  corrector;*  as  assembled,  it  is  ten  (decimal).  After  displaying 
the  trace  this  number  of  times,  the  routine  checks  sense  switch  4  to  see  if  the  display 
should  be  held  on  the  scope,  i.  e. ,  whether  or  not  the  display  should  be  recycled  ten 
more  times. 

When  and  if  sense  switch  4  is  off,  control  passes  to  location  bg,  the  beginning 
of  a  routine  which  subtracts  from  each  amplitude  value  measured  the  value  of  the 
average  previously  computed  and  stored  at  p2m. 

This  done,  sense  switch  1  is  checked  to  see  if  the  same  trace  should  be  rescanned: 
if  yes,  control  passes  back  to  el;  if  no,  the  value  of  c  (ym)  is  saved  at  pm  and  sense 
switch  3  is  checked  to  see  if  the  data  for  this  trace  should  be  recorded  on  tape.  **  The 
recording  is  done  during  the  section  which  starts  at  ca,  so  that  if  the  recording  is  to 
be  suppressed,  this  section  is  skipped  and  control  goes  to  location  e. 

At  ca,  the  trace  count,  c  (pc),  is  increased  by  one  and  then  a  checksum  for  the 
output  record  is  computed  by  combining  the  contents  of  all  of  the  registers  of  the  output 
table  (except  the  checksum  itself)  by  an  exclusive  OR  operation.  This  checksum  is  then 
stored  at  xyz  in  the  output  table. 

This  done,  the  length  of  the  record  to  be  written  is  computed  and  the  calling 
sequence  for  the  block-output  routine  is  set  up.  This  calling  sequence  consists  of 
three  instructions: 

law  A 

jda  735 

law  B 

where  A  is  the  address  of  the  first  register  and  B  is  the  address  of  the  last  register  of 
the  output  block.  Flag  3  is  then  cleared,  since  it  is  used  as  an  error  indicator  in  the 
Fletcher  Magtape  Routines  and  could  conceivably  be  set  at  this  point. 


*  Change  rd+3  from  lawil2=  710012  to  lawin  =  7100XX,  where  XX  is  the  (octal) 
number  of  cycles  desired. 

**  Note  that  sense  switch  1  being  set  also  suppresses  recording  by  bypassing  this  section. 
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A  check  is  then  made  of  sense  switch  5  to  see  whether  the  program  is  being  used 
to  read  a  block  of  n  registers,  n  being  a  preset  value  stored  at  nt.  If  so,  a  check  is 
made  to  see  if  n  traces  have  been  read  yet,  and  if  so,  control  is  passed  to  the  type¬ 
writer  control  routine  at  ctl.  If  neither  of  these,  control  passes  to  e,  where  the 
location  of  the  next  trace  is  estimated. 

The  trace  just  scanned  passes  through  the  point  with  coordinates:  c(xO),  c(pm). 
Location  mmO  contains  the  position  of  the  preceding  trace  and  mml  contains  a  (smoothed) 
estimate  of  the  spacing  between  traces.  Figure  6a  shows  the  situation  at  the  beginning 
of  the  computation.  The  equations  used  are: 

c  (mml)  =  7/8  c  (mml)  ,  .  +  1/8  c  (pm)  -  c  (mmO)  ,  . 

c  (mmO)  =  c  (pm) 

- new 

c  (nwm)  =  c  (mmO)  +  c  (mml) 

-  - new  - new 

Figure  6b  shows  the  situation  after  the  computation. 

The  c  (nwm),  i.  e. ,  the  estimated  location  of  the  next  trace,  is  checked  against 
a  pre-stored  limit,  c(fap).  If  the  next  trace  is  expected  to  be  below  the  limit  —  at 
x=c(xO)  —  then  control  is  passed  to  the  film  advance  subroutine.  This  routine  moves 
the  film  in  such  a  way  that  the  image  on  the  CRT  of  a  point  on  the  film  moves  up. 

When  control  returns  from  the  film  advance  subroutine  the  corrected  (in  view  of 
the  film  movement)  estimate  of  the  location  of  the  next  trace  is  in  the  accumulator.  It 
is  checked  against  the  lower  limit  again  and  the  film  is  advanced  until  the  trace  is 
expected  to  be  above  the  limit.  When  this  happens,  control  moves  back  to  el^in  order 
to  scan  the  trace. 
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write  title  -  restart  3  feb  64 

/write  title 


bcdtape 
jsp  51 
tbf 

tbf  50 

-0 

opr 

bintape 
dzm  rc 

/record 

count 

dzm  pc 

/t race 

count 

dzm  Trc 

Jmp  pra 

/frame 

count 

/restart 

rst,  rewind 

lac  rc 
space 
jmp  pra 


start 
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lateral  scan  routine 


25  feb  64 


pra, 

lac 

mmO 

add 

mml 

dac 

nwm 

lac 

xmn 

/store  left-most 

x  in  output  table 

sal 

8s 

dac 

xst 

lac 

xmx 

/compute  length 

of  output  record 

sub 

xmn 

sar 

s 

add 

(2 

add 

csz 

dac 

rsz 

dzm 

sc 

el. 

szf 

1 

Jmp 

ctb 

lac 

nwm 

sal 

5s 

dac 

yo 

/initialize  vertical  scan 

dac 

Zf 

dac 

ym 

sar 

8s 

add 

yvu 

dac 

yul 

sub 

yvu 

sub 

yvd 

dac 

yii 

law 

tbl 

dap 

scu 

lio 

(400000 

/clear  tables  to 

scu, 

dlo 

nothing  seen 

Index  scu,  (dlo 

tbe,  scu 

hs. 

law 

1 

dac 

nps 

lac 

xO 

dac 

X 

Jsp 

vs 

/find  trace  to  refine  position 

lac 

yf 

dac 

ym 

sar 

5s 

dac 

pm 

/should  the  same 

szs 

10 

trace  be  repeated 

Jmp 

e2 

/yes 

lsp 

sc 

/no 

Jmp 

e 

/(-l) (number  to 

skip  +  l) 

skn. 

law 

1  1 

dac 

sc 
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e2,  lac  yf 

sar  Hs 
add  yvu 
dac  yul 
sub  yvu 
sub  yvd 
dac  yll 

hsa,  Jsp  vs 
law  2 
add  x 
dac  x 
sas  xmx 
Jmp  hsa 

hsb,  lac  xO 

dac  x 
lac  ym 
dac  yf 

hsl,  law  1  2 

add  x 
dac  x 
Jsp  vs 
lac  x 
sas  xmn 
Jmp  hsl 

hsc,  lac  nps 

sza 

Jmp  hsj 

hst,  init  hsl,  tba 

dzm  tl_ 
dzm  plm 

hsl,  lac 

sad  (400000 
Jmp  hsl 
sar  8s 
add  plm 
dac  plm 
ldx  tl 

hsl.  Index  hsl,  (lac  tbe 

lio  (flex  nls 
lac  tl 
sza  1 
Jmp  erp 


/right 


/reset  to  go  left 


/left 


/done 

/anything  seen? 

/no,  complain 

/calculate  average  as  first 
/approximation  to  baseline 


hsl 
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lio  plm 
cla 
spi 
clc 

scl  Is 
dis  tl 
hit 

dac  p2m 


rd. 

szs  1  60 

Jmp  bg 

setup  T3,  12 

rdg. 

lnit  rdl,  tba 

/redisplay  signal 

rdO, 

lac  rdl 
sub  (lac  tba 
sal  s 
add  xmn 
sal  8s 
dac  tl 

rdl. 

lac 

sad  (400000 

Jmp  rd2 
swap 
lac  tl 
dpy-1 

rd2. 

ldx  rdl 
sas  (lac  tbe 
Jmp  rdO 

Isp  t3 

Jmp  rd9 
szs  4o 

Jmp  rd 

bg. 

lnit  bn,  tba 

bn. 

lac 

sad  (400000 

Jmp  bnl 
sar  8s 

sub  p2m 
sal  os 
dac  1  bn 

/normalize  signal 

bnl. 

Index  bn,  (lac 

tbe,  bn 

dun. 

szs  10 

/should  the  same  trace  be  repeated? 

Jmp  el 

/yes 

lac  ym 
sar  5s 
dac  pm 

/no 

szs  30 

/should  the  data  be  recorded? 

Jmp  e 

/no 
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ca. 


csm, 


e. 


ea. 


hsj. 


start 


idx 

pc 

dzm 

xyz 

dzm 

ch 

law 

pc 

dap 

csm 

add 

rsz 

dap 

lac 

pnd 

xor 

ch 

dac 

ch 

idx 

csm 

sas 

pnd 

Jmp 

csm 

lac 

ch 

dac 

xyz 

law 

pc 

add 

rsz 

sub 

(1 

dap 

.  3 

law 

pc 

Jda 

law 

735 

elf 

3 

szs 

1  50 

Jmp 

e 

lac 

pc 

sub 

sma 

nt 

Jmp 

ctl 

lac 

pm 

sub 

mmO 

sar 

3s 

dac 

T2 

lac 

mml 

sar 

cma 

3s 

add 

mml 

add 

t2 

dac 

mml 

lac 

pm 

dac 

mmO 

add 

mml 

dac 

nwm 

sub 

sma 

fap 

Jmp 

el 

Jsp 

cff 

Jmp 

ea 

elf 

6 

lio 

(flex  nps 

Jmp 

erp 

/yes  -  index  trace  counter 
/store  zero  in  checksum  register 

/set  up  to  compute  checksum 


/get  an  entry 
/compute  checksum 


/done  the  whole  record? 
/no 

/yes  -  store  the  checksum 


/record  data  on  tape 


/reading  a  block  of  n  traces? 

/no 

/yes 

/read  n  traces? 

/yes 

/no  -  estimate  new  median 


/constant  velocity  assumed 

/best  guess  for  new  median 
/frame  advance  point 
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8. 


Film  Advance  Subroutine 


When,  following  the  scanning  of  a  trace,  it  is  determined  that  the  next  trace  will 
be  "out  of  sight",  i.e. ,  the  computed  location  at  which  scanning  should  start  is  below 
the  preset  lower  limit,  control  is  shifted  to  the  film  advance  subroutine  to  move  the 
film  up  and  bring  the  next  trace  into  view. 

The  routine  begins  at  cff  and,  after  saving  the  return  address,  checks  sense 
switch  2  to  see  whether  or  not  it  is  desired  to  reprocess  the  traces  in  view  rather 
than  advance  the  film.  If  it  is,  control  jumps  to  location  cfh  where  the  values  of 
c  (mmO),  c  (mm  11  and  c  (mm2')  computed  during  the  last  running  of  the  initial  position 
calculation  routine  are  restored.  Thus,  the  lateral  scan  routine  will  repeat  the  scan 
of  the  traces  in  view  if  the  film  has  not  been  advanced  since  the  last  run  of  the  initial 
position  calculation  routine,  or  if  the  values  of  c(mmO)  c  (mml)  are  by  coincidence 
appropriate  to  the  current  configuration.  If  the  film  is  to  be  advanced,  the  x  and  y 
coordinates  of  the  last  trace  are  stored  and  then  the  film  advance  motor  is  turned  on 
by  setting  program  flag  6  to  1. 

As  described  earlier,  there  is,  on  the  shaft  of  the  film  advance  motor,  a  cam- 
microswitch  combination  whose  status  may  be  determined  by  the  computer  (see  Fig.  7). 
The  film  advance  routine  repeatedly  checks  the  micro -switch  position  by  executing  the 
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(T 


switch  "on" 


switch  "off” 


iot  11  makes  io  =  0 
4 


iot  11  makes  io  =  1 
4 


Fig.  7  Cam -microswitch  combination 
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iot  11  instruction  and  examining  the  10  register  until  it  sees  the  sequence  "off-on-off" 
or  "on-off",  whereupon  it  stops  the  film  advance  motor  by  clearing  program  flag  6. 
Between  each  interrogation  of  the  microswitch,  control  is  passed  to  another  subroutine— 
the  trace  following  subroutine,  to  be  described  below  —  to  locate  and  record  the  position 
of  the  moving  trace.  A  counter,  frc,  is  used  to  keep  trace  of  the  number  of  times  the 
motor  is  turned  on  and  off. 

When  the  film  has  stopped  moving  and  the  motor  has  stopped  turning,  the  routine 
selects  the  last  known  position  of  the  trace,  c  (yf),  and  initiates  a  single  vertical  scan 
in  its  vicinity.  The  newly  computed  trace  position  replaces  the  previous  c(yf). 

The  distance  the  film  moved  can  then  be  computed  as 
c  (fav)  =  c  (yf)  -  c  (ym) 

where  ym  will  contain  the  y-coordinate  of  the  trace  before  the  film  was  moved.  This 
amount  is  used  to  update  the  contents  of  mmO  and  nwm,  and  control  is  returned  to  the 
main  program. 

The  trace  following  subroutine  is  a  closed  subroutine  called  at  cfa  and  cfl  which 
keeps  track  of  the  location  of  the  trace  last  read  while  the  film  is  being  advanced.  The 
routine  begins,  after  it  has  checked  to  see  if  a  typewriter  key  has  been  struck,  by 
setting  up  the  upper  limit  of  the  scan  —  to  c  (yp  +  c  (k2)  —  and  setting  the  threshold  to  5/13. 

The  plan  is  to  display  a  band  of  points  —  13  points  wide  —  starting  below  the  trace 
and  extending  vertically  until  the  trace  is  found  (see  Fig.  8)  The  program  is  able  to 
display  the  band  so  fast  that  it  can  easily  keep  up  with  the  advancing  trace.  The  scan 
begins  at  a  preset  value,  c(yvd),  below  the  current  location  of  the  trace,  c(yf),  and 
continues  up  until  the  trace  is  located  or  the  upper  limit  is  reached.  The  criterion  for 
finding  the  trace  is  seeing  5  out  of  13  points  displayed.  If  the  trace  is  not  found,  the 
threshold  is  reduced  successively  to  4,  3,  2,  andl  point  and  if  it  is  not  found  at  this 
last  threshold  value,  control  is  transferred  to  hsj,  where  "nps"  is  typed  out  and  control 
goes  to  the  typewriter  listening  loop.  (Note  that  flag  6  is  cleared  there  as  part  of  the 
cla  cli  7-opr  instruction  —  hence,  the  motor  is  stopped.) 
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Normally,  the  routine  finds  the  trace,  puts  its  location  in  yf ,  clears  the  10 
register  and  interrogates  the  microswitch  (by  executing  iot  11)  and  transfers  control 
back  to  the  film  advance  subroutine  proper. 


57 


(a)  BEFORE  FILM  STARTS 
TO  MOVE 


(b)  DURING  MOTION 
OF  FILM 


(c)  AFTER  FILM  STOPS 
MOVING 


Fig.  8  Operation  of  trace  following  subroutine 
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film 

advance  subroutine 

25  feb 

64 

cff. 

dap 

cfx 

/change  film  frame 

szs 

20 

Jmp 

cfh 

lac 

ym 

dac 

yf 

/set  to  follow  last  trace 

lac 

kl 

dac 

X 

stf 

6 

/motor  on 

cfb. 

cli 

lot 

11 

ril 

4s 

spl 

i 

Jmp 

cfl 

cfa. 

Jsp 

CfJ 

spi 

Jmp 

cfa 

cfl. 

Jsp 

CfJ 

spi 

i 

Jmp 

cfl 

c  If 

6 

/motor  off 

idx 

frc 

lac 

xf 

sar 

8s 

add 

yvu 

dac 

yul 

sub 

yvu 

sub 

yvd 

dac 

yii 

Jsp 

vs 

/locate  advanced  trace 

lac 

Zf 

sub 

ym 

sar 

5s 

dac 

fav 

/amount  of  advance 

add 

mmO 

dac 

mmO 

lac 

yf 

dac 

ym 

lac 

nwm 

add 

fav 

dac 

nwm 

cfx. 

Jmp 

• 

CfJ, 

dap 

cfy 

szf 

1 

Jmp 

ctb 

lac 

k2 

sal 

8s 

add 

yf 

dac 

yul 

60 

/set  up  limits 

cfk. 

init  cfz. 

5 

lac  yvd 
sal  8s 

cma 

add  yf 

cfp. 

swap 
dzm  tl 

/follow  moving  trace 

setup  ch. 

13 

cfu. 

add  (5 
sal  Is 
add  kl 
sal  8s 
elf  3 
dpy 
szf  3 
ldx  tl 
lsp  ch 

Jmp  cfu 

/count  points  seen 

cfz. 

law  1 
add  tl 
sma 

Jmp  cfq 
swap 

add  (1000 
sas  yul 
Jmp  cfp 

/threshold 

cf9. 

law  1  1 
add  cfz 
dap  cfz 
sas  cf9 
Jmp  cfk+2 
Jmp  hsj 

/try  again  with  lower  threshold 

cfq. 

dlo  yf 

/trace  found 

ell 

lot  11 
rll  4s 

/interrogate  mlcroswltch 

cfy. 

Jmp  • 

cfh. 

lac  mt2 
dac  mm2 
lac  mtl 
dac  mml 
lac  mtO 
dac  mmO 
add  mml 
dac  nwm 
Jmp  cfx 

/dummy  frame  advance 

start 
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9.  Octal  Print  Subroutine 

The  octal  print  subroutine  is  entered  by  executing  a  jda  Gump  and  Deposit 
Accumulator)  instruction  with  a  number  up  to  six  octal  digits  long  in  the  AC.  This 
number  is  then  typed  out  by  the  typewriter  with  leading  zeros  suppressed.  If  the 
number  is  negative,  it  is  typed  out  in  the  octal  equivalent  of  ones  complement  form. 
If  the  AC  is  clear  when  the  routine  is  entered,  a  single  zero  is  typed. 
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octal  print  subroutine  16  Jan  64 


opt. 


opl. 


opx. 


0 

dap 

Opx 

law 

1  6 

dac 

ch 

elf 

1 

lio 

opt 

cla 

rcl 

3s 

dlo 

opt 

sza 

stf 

1 

sza 

1 

law 

20 

rcr 

9s 

rcr 

9s 

szf 

1 

tyo 

Isp 

ch 

Jmp 

opl 

szf 

i  1 

tyo 

Jmp 

start 
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10.  Vertical  Scan  Subroutine 

At  various  points  in  the  program,  control  is  transferred  to  the  vertical  scan 
subroutine  for  the  purpose  of  locating  a  trace  at  a  given  x-location  and  between  given 
y -limits.  The  most  important  points  of  reference  are  at  hsa  and  hsl  +  3  in  the  lateral 
scan  routine,  where  the  x-value  is  incremented  to  the  left  and  right  to  take  amplitude 
samples  across  the  trace. 

The  routine  begins  by  storing  the  current  x-location  and  clearing  the  so-called 
"phase  indicator"  (flag  5).  This  flag  will  be  set  to  1  if  and  when  a  point  is  seen  by  the 
reader.  Until  the  flag  is  set,  the  routine  is  said  to  be  in  phase  1,  and  after  it  is  set, 
in  phase  2. 

The  diagram  in  Fig.  9  is  a  representation  of  the  search  pattern  to  be  described 
below.  The  series  of  points  shown  has  been  expanded  in  the  x  direction  to  make  clear 
the  order  in  which  they  would  be  displayed.  Actually,  all  of  the  points  would  fall  in  a 
single  vertical  line. 

In  phase  1,  the  point  being  displayed  is  imaged  onto  the  background  of  the  film 
and  the  routine  searches  for  the  trace.  It  does  this  by  displaying  a  series  of  points 
starting  at  x-  c  (x),  y  =  c  (yf)  and  continuing  at  x  =  c  (x)  and  y  =  c  (jrf)+  2n  (n  =  1,2,3, . . ). 

-PA-2161 

upper  limit - -  - - - 


lower  limit _ 

Fig.  9  Representation  of  search  pattern 
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The  actual  sequence  is  c  (yf),  c  (yf)+  2,  c  (yf)  -2,  c  (yf)  +  4,  c  (yf)  -4, . . . ,  This  continues 
until: 


(i)  the  upper  limit  is  reached,  in  which  case  only  the  points 
y  =  c  (yO  -2n  are  displayed,  or 

(ii)  the  lower  limit  is  reached,  in  which  case  only  the  points 
y  =  c  (yf)+2n  are  displayed,  or 

(iii)  a  point  is  seen,  in  which  case  the  routine  enters  phase  2. 

If  both  (i)  and  (ii)  occur  before  (iii)  occurs,  control  passes  back  to  the  main 
program  with  flag  5  =  0. 

If  and  when  phase  2  is  entered,  the  display  of  points  is  resumed  in  a  manner 
similar  to  phase  1.  The  upper  and  lower  limits,  however,  are  determined  differently. 
The  outputs  of  two  "filters"  are  computed;  one  for  the  points  y  =  c  (yf)+2n  starting  at 
vsr  and  one  for  the  points  y  =  c  (yf)  -2n  starting  at  vsq.  The  respective  outputs  are 
c  (chu)  and  c  (chd)  and  the  functions  are: 


c  (chu)  =  400o 
o  o 


c  (chd)  =  400o 

O  o 


c  (chu)^  = 


v.  +  c(cliy)i_1 


c  (chd).  = 

l 


v.  +  c(cM).  , 


1000g 

where  v.= 

0  otherwise . 

As  each  point  is  stored,  its  y  coordinate  is  stored  as  a  possible  value  for  the  upper  or 
lower  edge  of  the  trace.  The  edges  are  taken  to  be  the  values  of  yf  last  stored  when  the 
corresponding  filter  function  falls  below  the  threshold,  c(tdi).  (This  value  is  currently 
set  at  160o. ) 

O 

When  both  upper  and  lower  edges  of  the  trace  have  been  found,  the  position  in  the 
output  table  where  this  sample  is  to  be  stored  is  computed.  The  value  stored  is  the 
y-coordinate  half-way  between  the  upper  and  lower  edges  of  the  trace.  Control  then 
passes  to  the  main  program. 
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radar  scan  vertical  scan  subroutine  7  feb  64 


vs. 


vsl. 


vsa. 


vsq. 


dap 

vsx 

lac 

X 

sal 

8s 

dac 

xp 

elf 

5 

law 

o 

o 

dac 

chu 

dac 

chd 

lac 

yf 

dac 

yu 

sar 

8s 

dac 

yd 

sar 

Is 

dac 

y 

setup  ydl,  1 

elf 

2 

elf 

4 

idx 

ydl 

cma 

cli-opr 

add 

y 

dac 

y 

szf 

2 

Jmp 

vsu 

lio 

y 

sil 

9s 

lac 

xp 

elf 

3 

dpy 

szf 

5 

Jmp 

vsp 

szf 

3 

Jmp 

vsq 

lac 

y 

sal 

Is 

sub 

yu 

spa 

stf 

2 

Jmp 

vsu 

stf 

5 

dzm 

nps 

dio 

yf 

Jmp 

vsl 

/phase  indicator 


/set  up  limits 


/lower  boundary  indicator 
/upper  boundary  indicator 

/down 


/if  down  scan  done 


/phase  1  -  find  any  point 


/lower  boundary  reached 


/point  found,  enter  phase  2 
/to  find  limits 


68 


vsp 


vsu. 


vsr. 


cla 

12 

/phase 
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szf 

3 

law 

1000 
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chd 
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Is 

dac 

chd 

sub 

th 

spa 

/'below 

Jmp 
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threshold,  downward  search  done 

elf 

2 

/above 

threshold ,  continue 
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8s 
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yd 
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y 
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y 

szf 
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Jmp 
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scan  done 
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y 
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3 
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5 
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3 
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1  continued 
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Is 
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4 
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Jmp 
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14 
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3 
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add 

chu 
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Jmp 
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threshold,  upward  search  done 
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4 

/above 
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yu 
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V3C, 

szf 

2 

szf 

1  h 

Jmp 

vsa 

szf 

1  5 

Jmp 

vsx 

dzm 

nps 

lac 

X 

sub 

xmn 

sar 

s 

add 

(tbl 

dap 

vss 

lac 

yu 

sar 

8s 

add 

yd 

sal 

7s 

dac 

yf 

VSS  , 

dac 

• 

V3X, 

Jmp 

• 

start 

/if  not  done 

/never  entered  phase  2,  no  points  seen 
/record  position  of  trace 
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11.  End  Routine 

When  the  character  "e"  is  typed,  the  typewriter  control  routine  passes  control 
to  the  end  routine  at  end,  where  two  end-of-file  marks  are  written  and  the  magnetic 
tape  is  rewound.  Control  then  returns  to  ctl. 

12.  Advance  Film  Routine 

The  character  "a"  causes  control  to  pass  to  adv,  where  the  film  advance  motor 
is  turned  on  by  setting  flag  6.  The  motor  will  continue  to  run  until  sense  switch  6  is 
set  to  zero.  Thus,  if  it  is  desired  to  advance  the  film,  say  between  calibration  sections, 
ss  # 6  is  set  to  1  and  "a"  is  typed.  When  ss  #6  is  set  to  0,  flag  6  is  cleared  —  the  motor 
is  turned  off,  the  trace  count  is  set  to  zero,  and  an  end-of-file  is  written  on  the  tape, 
and  control  is  returned  to  ctl. 
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end  -  move  film  3  feb  64 


/end 

end,  weof 

weof 
rewind 
Jmp  ctl 


/advance  film  between  calibration  readings 

/runs  motor  as  long  as  ss6  Is  up  -  stops  motor,  stores  zero  In 
/trace  count,  writes  end  of  file  and  returns  to  listening  loop 
/  when  ss6  Is  put  down 


adv. 


start 
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stf  6 

/turn  on  film  advance  motor 

szs  60 

/finished? 

Jmp  .-1 

/no 

elf  6 
dzm  pc 
weof 

Jmp  ctl 

/yes 

13.  Block  Output  Routine 

Output  from  the  program  is  onto  magnetic  tape  through  the  Type  51  control  which 
requires  character -by -character  reading  and  writing.  In  order  to  get  a  tape  in  standard 
IBM  format,  use  is  made  of  a  group  of  subroutines  called  the  "Fletcher  Routines".  * 

The  block  output  routine  serves  to  produce  from  a  simple  calling  sequence: 
law  A 
jda  735 
law  B, 

where  A  is  the  first  address  and  B  the  last  address  of  a  block  of  registers  to  be  written 
on  tape,  a  fairly  complex  response,  namely,  to  write  the  record  on  tape,  check  it  in 
reverse,  and  check  it  forward.  In  case  of  error,  the  routine  rewrites  and  checks 
reverse  and  forward  until  a  total  of  five  write-checks  have  been  made  unsuccessfully, 
whereupon  it  causes  the  characters  "5  bad"  to  be  typed  and  halts.  Pressing  Continue 
will  cause  another  try  of  five  write -checks. 


*  Available  as  DECUS  No.  33  BBN-lOllc  Scatter  Gather  Mag  Tape  Routine  in  the  DECAL 
language.  Used  here  in  a  translation  to  MACRO,  (see  Appendix  B). 
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BLOCK  OUTPUT  ROUT  I  NT 


3-PA-2180 


block  output  routine  24  Jan  64 

735/ 


mag. 

0 

/set  up  return  address  -1 

dap  mgo 

dap  gtl 

/set  up  to  get  last  address 

Idx  mgo 

/set  up  return  address 

gtl. 

xct  • 

/get  last  address  of  block 

dac  mkO 
add  (1 
dac  mkl 
dac  mk2 
lac  mag 
dac  dul 
dac  du2 
sub  (l 
dac  duO 

/set  up  calling  sequences 

dzm  Udr 

/put  zero  In  counter 

wrg. 

Jsp  51 

/gwmf 

dul. 

0 

/first  address  of  block 

mkl. 

0 

777777 

/last  address  +1  of  block 

Jsp  201 

/scmr 

mkO, 

0 

/last  address  of  block 

duO, 

0 

777777 

/first  address  -1  of  block 

Jmp  wgr 

/parity  or  miss  error 
/normal  return 

skp  6 00 

Jmp  wgr 

/check  error 

Jsp  220 

/scmf 

du2. 

0 

/first  address  of  block 

mk2. 

0 

777777 

/last  address  +1  of  block 

Jmp  wgf 

/parity  or  miss  error 

mgo. 

Jmp  . 

/normal  return-return  to  program 

Jmp  wgf 

/check  error 

wgr. 

ldx  bdr 

/Index  counter 

sad  (5 

/done  5  write-checks? 

Jmp  bty 

/yes 

Jsp  14 

777776 

Jsp  14 

1 

Jmp  wrg 

/no-space  back  one 

/space  forward  one 
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bty. 


wgf, 

start 


lio  (000577 
tyo 

rir  6s 
tyo 

rir  6s 
tyo 

lio  (646162 
tyo 

rir  6s 
tyo 

rir  6s 

tyo 

hit 

dzm  bdr 
Jmp  wgr  3 
Jsp  14 
777776 
Jmp  wgr 


/type  "5  bad" 


/error  halt-press  continue  to  try  again 
/put  zero  In  counter 
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14.  Output  Format 

A  single  record  is  written  on  magnetic  tape  in  the  BCD  mode,  when  the  character 
"g"  is  typed  on  the  typewriter.  This  record  of  120  characters  is  made  up  of  the  contents 
of  a  table,  tbf,  set  up  by  the  titling  routine.  The  remainder  of  the  records  on  the  tape 
are  in  the  binary  mode  and  are  in  the  following  format,  one  per  trace  read. 


PDP  Word  Number 


1  trace  number 

2  number  of  PDP  words  in  record 

3  number  of  PDP  words  in  control  section 

4  x-coordinate  of  left-most  sample 

5  spare 

6  spare 

7  spare 

8  checksum 

9  data  word 


c  (word  2)  data  word 
Each  data  word  has  the  following  format: 
0 


\ 


9  10 


amplitude  value 


Control 

Section 


'i 


>  Data 
Section 


/ 


17 


no  significance 


The  amplitude  values  are  to  be  interpreted  as  ones -complement  numbers.  In  case  no 
point  was  seen,  the  whole  word  will  contain  the  number  400000  (which  is  equivalent  to 
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constants  and  temporary  storage  7  feb  64 


pnd, 
mmO, 
mml, 
mm2, 
nwm, 
fmx, 
fht , 
fav, 
fap, 
xO, 

x, 
yo, 

y, 

th, 

xmn, 

xmx, 

yii, 

yui, 

yvu, 

yvd, 

yt , 

ki, 

k2, 


variables 

constants 


pc, 

rsz, 

csz, 

xst, 

til, 

tl2, 

tl3, 

xyz, 

tba, tbl, 
tbe , 

obi, 

start  beg 


lac 

0 

0 

0 

0 

6000 

14000 

364o 

-4000 

0 

0 

0 

0 

loO 
-240 
24  0 
0 
0 

150 

40 

0 

0 

4oC 


0 

0 

10 

0 

0 

0 

0 

0 

tba  1000/ 
tbe  1/ 


/endcheck 

/medial  location 

/first  difference 

/second  difference 

/new  median 

/max  y  on  this  frame 

/height  of  one  frame .. .2xfmx 

/film  advance  y-coordinate 


/minimum  x 
/maximum  x 
/y  lower  limit 
/y  upper  limit 

/max  expected  ht  above  average 
/max  expected  ht  below  average 
/last  y  found 
/film  advance  x  coordinate 
/max  expected  ht  for  film  advance 


/trace  counter 

/record  size 

/control  section  size 

/x-coordinate  of  leftmost  sample 

/spares 


/checksum 
/signal  table 
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B.  Series  la 

The  modification  to  the  Series  1  program  to  read  traces  of  inverted  orientation 
consists  of: 


(i)  the  insertion  of  one  instruction  into  the  lateral  scan 
routine,  viz. ,  a  cma  between  bn +5  and  bn +6  —  the 
effect  of  this  instruction  is  to  change  the  amplitude 
measured  downward  to  positive  and  upward  to  negative; 

(ii)  in  the  film  advance  subroutine,  the  replacement  of 
lac  yvd  by  a  lac  Jc3  at  cfk+2  —  this  has  the  effect  of 
allowing  the  trace  following  routine  to  follow  the  trace 
closely  rather  than  from  the  bottom  edge  of  the  now 
extensive  scanning  area  (see  Fig.  10);  and 

(iii)  the  addition  of  the  constant  k3.to  the  list  of  constants. 


Fig.  10  Trace  following 


80 


C.  Series  2 

The  program  to  read  film  whose  traces  have  a  fiducial  mark  must  provide,  in 
addition  to  all  of  the  routines  of  the  earlier  Series  1  program,  a  routine  to  locate  the 
fiducial  marks  and  must  provide  for  reading  the  positions  of  the  marks  and  computing 
the  amplitudes  of  the  traces  with  respect  to  them 

The  fiducial  marks  are  located  by  the  use  of  the  macroscope  w/reference  marks 
routine,  and  their  location  is  recorded  by  use  of  the  fiducial  marks  location  calculation 
routine.  The  latter  routine  is  entered  by  typing  "f"  when  the  program  is  in  the  type¬ 
writer  control  loop.  (The  addition  of  the  character  "f"  to  the  dispatch  table  is  the  only 
difference  between  the  Series  2  typewriter  control  program  and  the  earlier  versions . ) 
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1.  Macroscope  w/Reference  Lines 


As  implied  by  its  name,  this  routine  is  the  earlier  macroscope  with  an  addition 
which  generates  reference  lines.  These  lines  are  coordinated  with  the  macroscope 
redisplay  in  such  a  way  that  if  a  point  in  the  redisplay  area  is  chosen,  the  corresponding 
point  in  the  raster  may  be  determined. 

When  the  character  "m"  is  typed  with  sense  switch  5  set  to  zero,  the  routine 
behaves  as  previously  described  until  the  sixteen  partial  rasters  have  been  displayed, 
whereupon,  at  ma-5,  it  sets  up  and  displays  a  horizontal  and  a  vertical  line  through 
the  origin.  These  lines  are  displayed  after  every  complete  raster  cycle  of  the  main 
macroscope  routine.  If  sense  switch  5  is  set  to  one,  the  program  interprets  the  test 

word  switches  as  the  x-coordinate  of  an  x=  constant  line  and  the  y-coordinate  of  a 
y=  constant  line:  x  controlled  by  positions  0-8  and  y  by  positions  9-17. 

When,  thereafter,  a  typewriter  character  is  struck,  the  program  will  cause  these 
coordinates  to  be  typed  out  in  the  form 


x 


m 


y  n 


where  m  and  n  are  octal  7's  complement  integers.  These  numbers  are  the  coordinates 


-erl  -2163 


redisplay 


Fig.  11  Macroscope  w/reference  lines  format 
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of  the  point  in  the  raster  corresponding  to  the  point  in  the  redisplay  chosen.  That  is, 
if  in  Fig.  11,  the  point  is  the  intersection  of  the  reference  lines,  the  coordinates  of 
P^,  the  corresponding  point  in  the  raster  will  be  typed  out.  This  number  is  also  stored 
for  use  in  the  fiducial  marks  position  calculation  routine. 

Setting  sense  switch  5  back  to  zero  before  typing  a  character  returns  the  routine 
to  its  earlier  state  where  the  contents  of  the  test  word  are  interpreted  as  the  coordinates 
of  the  raster. 
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R  l  F  i  R  E-,N  C  Z 


LINES 


J-PA-W» 


Imn  • 

r  tm  lo 


to  AC 


85 


macroscope  w/  reference  lines  12  Jan  64 


a, 

b. 


h. 


J, 


lat 

dac  mxy 
cli  7 
lac  mxy 
rcr  9s 
ral  9s 
sar  Is 

sub  (200000+1000 

dac  1x0 

add  (400000 

dac  lxl 

add  (4000 

dac  lxm 

swap 

sar  Is 

dac  T 

repeat  3,  sar  2s 
sub  J125000+1000 
dac  yOO 
add  ^250000 
dac  yll 
add  J4000 
dac  ymx 
lac  t 

lio  (-251777 

spa 

lio  j_252000 
dio  vr 

law  1000 
add  lxl 
dac  lxl 
xct  h 
add  1x0 
dac  1x0 
lac  yll 
dac  lyl 
lac  yOO 
dac  lyO 

xct  h 
add  lyl 
dac  lyl 
xct  h 
add  lyO 
dac  lyO 


/y  to  io 


/set  up  boundaries 


add  t 


/horizontal  interlace 


/vertical  interlace 
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k, 

l, 

11, 

m. 


ma2 , 


ma, 

mal. 


mb. 


swap 
lac  1x0 

dpy 
szf  3 
Jmp  r 
add  (4000 
sas  lxl 
Jmp  1 

dac  t 
swap 

add  (4000 
sas  lyl 
Jmp  k 
sas  ymx 
Jmp  J 
szf  1 
Jmp  me 
lac  t 
sas  lxm 
Jmp  h 
law  i  2 
dac  tT 
cla 

3  23  50 

lat 

dac  pxy 
lac  pxy 
and  (777000 
lio  (400000 
Jmp  mal 
swap 
dpy 
swap 

add  (1000 
sas  (400001 
Jmp  ma 
ell 

lac  pxy 
and  (777 
rcr  9a 
lac  (400000 
dpy 

add  (1000 
sas  (400001 
Jmp  mb 
lsp  t4 
Jmp  ma2 
szs  50 
Jmp  b 
Jmp  a 


/horizontal  sweep 


/vertical  sweep 


/number  of  times  to  cycle  lines 


/move  reference  lines? 

/yes 

/no 

/set  up  x  =  constant  line 


/increment  y 
/reached  top  of  scope? 

/no 

/ye3  -  set  up  y  «  constant  line 


/increment  x 

/reached  edge  of  scope? 

/no 
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me , 


r. 


mxy, 

pxy, 

lxy. 


Ho  (772736 
rll  6s 
tyo 

ril  6s 
tyo 

rll  6s 
tyo 

lac  pxy 
sar  9s 
dac  xhl 
sal  s 
Jda  opt 

lio  (773036 
rll  6s 
tyo 

rll  6s 
tyo 

rll  6s 
tyo 

lac  pxy 
and  (777 
ral  9s 
spa 

lor  (777 
sub  vr 
dac  xh2 
sar  8s 
Jda  opt 
lac  xhl 
lio  xh2 
rcl  9s 
dac  lxy 
Jmp  ctl 

dlo  t 
swap 
add  vr 
swap 
dpy 
elf  3 
lio  t 
Jmp  11 

0 

0 

0 


/carriage  return 

/x 

/tab 


/print  x-coordlnate 


/carriage  return 

/y 

/tab 


/print  y-coordinate 


/return  to  listening  loop 
/point  seen 
/vertical  relocation 


/x  and  y 
/x  and  y 
/x  and  y 


for  raster 

for  reference  lines 

for  output 


start 
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2.  Fiducial  Marks  Position  Calculation  Routine 
This  short  routine  is  entered  when  the  character  "f"  is  typed.  It  takes  the 
stored  value  of  the  coordinates  of  the  center  of  the  fiducial  mark,  unpacks  them  and 
stores  the  results  in  the  proper  form  for  use  by  the  lateral  scan  routine,  the  vertical 
scan  subroutine  and  the  film  advance  subroutine. 
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3-PA-2I82 


FIDUCIAL  MARKS  POSITION  CALCULATION 


Ctl 


90 


fiducial 

f, 


start 


marks  position  calculation  20  mar  64 


lac  lxy  /record  fiducial  coordinates 

sar  9s 

sal  s 

dac  fix 

lac  lxy 

and  (777 

ral  9s 

spa 

lor  (377 
rar  8s^ 
dac  fly 
Jmp  ctl 
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3.  Lateral  Scan  Routine 

For  traces  with  fiducial  marks,  some  provision  must  be  made  in  the  lateral 
scan  routine  to  read  the  marks  and  store  the  measured  amplitudes.  For  this  purpose, 
a  table  of  75  registers  is  saved  starting  at  register  fdl  by  a  'dimension'  pseudo- 

O  - 

operation  at  the  beginning  of  the  routine.  During  each  pass  through  the  main  loop  of 
this  routine,  i.e. ,  just  before  each  new  trace  is  scanned,  the  table  is  cleared  by 
storing  in  each  register  the  "no  point  seen"  symbol,  400000.  This  is  done  by  a  group 
of  instructions  starting  at  scy  -2  and  extending  to,  but  not  including  hs. 

Following  the  seven  instructions  at  e2  which  set  up  the  upper  and  lower  limits 
for  the  scan,  new  instructions  are  inserted  —  fsl.to,  but  not  including,  hsa  —  to  read 
the  fiducial  mark.  First  an  indicator  is  set  to  show  the  vertical  scan  subroutine  that 
the  fiducial  mark  is  being  read  and  then  coordinates  and  limits  are  set  up.  The  routine 
assumes  that  the  x-coordinate  corresponding  to  the  center  of  the  trace  is  given  — 
c  (fix)  —  as  well  as  the  half-width  of  the  mark  —  c  (dll).  The  routine  will  scan  from  the 
(computed)  left  edge  of  the  mark  to  the  (computed)  right  edge.  When  the  scanning  is 
finished,  the  indicator  is  reset  and  x  and  y  coordinates  restored. 

The  remainder  of  the  routine  is  the  same  as  the  Series  1  coding  except  that  the 
value  used  to  normalize  the  trace  amplitudes,  c  (p2m),  is  the  average  of  the  fiducial 
mark  amplitudes  rather  than  of  the  trace  amplitudes.  *  This  requires  a  change  of  two 
instructions :  one  at  hst  and  one  at  hsi.  The  average  computed  is  stored  also  at  ym  for 
use  in  the  film  advance  subroutine. 


*  That  is,  the  amplitudes  recorded  by  the  Series  1  program  are  measured  with  respect 
to  the  average  of  all  trace  amplitudes  (see  p.44)  while  the  Series  2  and  3  programs 
recorded  amplitudes  measured  with  respect  to  the  average  of  the  fiducial  mark  ampli¬ 
tudes,  which  is  itself  a  measure  of  the  noise  level. 
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3-PA-2I83 


CHANGES  TO  LATERAL  SCAN  ROUTINE* 


hsa 


•These  boxes  replace  box  e2  in  the  Series  1  diagram  (p.  48).  022-1357 
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lateral  scan  routine  25  mar  64 


dimension 

pra. 


el. 


scu, 

scy. 


fdl(75) 


lac 

mmO 

add 

mml 

dac 

nwm 

lac 

xmn 

sal 

8s 

dac 

xst 

lac 

xmx 

sub 

xmn 

sar 

s 

add 

(2 

add 

csz 

dac 

rsz 

dzm 

sc 

szf 

1 

Jmp 

ctb 

lac 

nwm 

sal 

5s 

dac 

yo 

dac 

yf 

dac 

ym 

sar 

8s 

add 

yvu 

dac 

yul 

sub 

yvu 

sub 

yvd 

dac 

yii 

law 

tbl 

dap 

scu 

lio 

(400000 

dio 

index  scu. 

law 

fdl 

dap 

scy 

dio 

index  scy. 

/store  left-most  x  in  output  table 
/compute  length  of  output  record 


/initialize  vertical  scan 


/clear  tables  to  nothing  seen 
(dio  tbe,  scu 

(dlo  fdl  75,  scy 
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hs , 

law 

1 

dac 

nps 

lac 

xO 

dac 

X 

Jsp 

vs 

lac 

yf 

dac 

ym 

sar 

5s 

dac 

pm 

SZS 

10 

Jmp 

e2 

isp 

sc 

Jmp 

e 

skn. 

law 

i  1 

dac 

sc 

e2. 

lac 

yf 

sar 

8s 

add 

yvu 

dac 

yul 

sub 

yvu 

sub 

yvd 

dac 

yii 

fsl. 

law 

1 

dac 

sin 

lac 

fix 

add 

dlf 

dac 

fmn 

lac 

fix 

sub 

dlf 

dac 

X 

lac 

yo 

sal 

8s 

dac 

yf 

fll. 

Jsp 

vs 

law 

2 

add 

X 

dac 

X 

sas 

fmn 

Jmp 

fll 

dzm 

sin 

lac 

y0 

dac 

yf 

lac 

xO 

dac 

X 

hsa, 

Jsp 

vs 

law 

2 

add 

X 

dac 

X 

sas 

xmx 

Jmp 

hsa 

/find  trace  to  refine  position 


/should  the  same  trace  be  repeated? 

/yes 

/no 

/(-l) (number  to  skip  +  l) 


/set  to  read  fiducial  marks 
/set  up  coordinates  and  limits 


/read  mark 


/set  to  read  trace 


/right 
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hsb 


hsl. 


hsc. 


hst. 


hsl. 


hsl. 


rd. 


rd9. 


lac  xO 
dac  x 
lac  ym 
dac  yf 

law  1  2 
add  x 
dac  x 
Jsp  vs 
lac  x 
sas  xmn 
Jmp  hsl 

lac  nps 
sza 

Jmp  hsj 

lnit  hsl,  fdl 
dzm  ¥l_ 
dzm  plm 

lac 

sad  (400000 
Jmp  hsl 
sar  8s 
add  plm 
dac  plm 
ldx  tl 


/reset  to  go  left 


/left 


/done 

/anything  seen? 

/no,  complain 

/calculate  average  of  fiducial  marks 


index  hsl,  (lac  fdl  75,  hsl 

lio  (flex  nls 

lac  tl 

sza  i 

Jmp  erp 

lio  plm 

cla 

spi 

clc 

scl  Is 
dis  tl 
hit 

dac  p2m 
sal  8s 
dac  ym 

szs  1  60 
Jmp  bg 

setup  ^3,  12 

lnit  rdl,  tba  /redisplay  signal 
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rdO, 

lac  rdl 
sub  (lac  tba 
sal  s 
add  xmn 
sal  8s 
dac  tl 

rdl, 

lac 

sad  (400000 

Jmp  rd2 
swap 
lac  tl 
dpy-i 

rd2. 

idx  rdl 
sas  (lac  tbe 
Jmp  rdO 

isp  t3 

/displayed  ten  times? 

Jmp  rd9 

/no 

szs  4o 

/yes  -  hold  the  display? 

Jmp  rd 

/yes 

be. 

init  bn,  tba 

/no  -  set  up  to  normalize  signal 

bn. 

lac 

sad  (400000 

Jmp  bnl 
sar  8s 

sub  p2m 
sal  8s 
dac  i  bn 

/normalize  signal 

bni. 

Index  bn,  (lac 

tbe ,  bn 

dun. 

szs  10 

/should  the  same  trace  be  repeated? 

Jmp  el 

/yes 

lac  ym 
sar  5s 
dac  pm 

/no 

szs  30 

/should  the  data  be  recorded? 

Jmp  e 

/no 

ca , 

ldx  pc 

/yes  -  index  trace  counter 

dzm  xyz 
dzm  ch 

/store  zero  in  checksum  register 

law  pc 
dap  csm 
add  rsz 
dap  pnd 

/set  up  to  compute  checksum 
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csm. 


e. 


ea. 


hsj. 


start 


lac 

xor 

ch 

dac 

ch 

idx 

csm 

sas 

pnd 

Jmp 

csm 

lac 

ch 

dac 

xyz 

law 

pc 

add 

rsz 

sub 

(1 

dap 

.  3 

law 

pc 

Jda 

735 

law 

elf 

3 

szs 

i  50 

Jmp 

e 

lac 

pc 

sub 

nt 

sma 

Jmp 

ctl 

lac 

pm 

sub 

mmO 

sar 

3s 

dac 

T2 

lac 

mini 

sar 

3s 

cma 

add 

mml 

add 

t2 

dac 

mml 

lac 

pm 

dac 

mmO 

add 

mml 

dac 

nwm 

sub 

fap 

sma 

Jmp 

el 

Jsp 

cff 

Jmp 

ea 

elf 

6 

lio 

(flex  nps 

Jmp 

erp 

/get  an  entry 
/compute  checksum 


/done  the  whole  record? 
/no 

/yes  -  store  checksum 


/record  data  on  tape 


/reading  a  block  of  n  traces? 

/no 

/yes 

/read  n  traces? 

/yes 

/no  -  estimate  new  median 


/constant  velocity  assumed 

/best  guess  for  new  median 
/frame  advance  point 
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4.  Film  Advance  Subroutine 

This  routine  differs  in  only  two  instructions  from  the  Series  1  routine:  these 
move  the  film  advance  x-coordinate  to  the  center  of  the  fiducial  mark.  The  instruction 
at  cff+5  becomes  lac  fix  and  the  one  at  cfu+2  becomes  add  fix. 
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5.  Vertical  Scan  Subroutine 

In  this  version  of  the  program,  the  vertical  scan  subroutine  has  been  changed 
slightly  so  that  the  amplitude  measurements  may  be  stored  as  either  fiducial  mark 
amplitudes  in  the  table  starting  at  fdl  or  as  trace  amplitudes  in  the  table  at  tbl.  This 
is  done  by  checking,  at  vsc+6  and  ff,  an  indicator,  sin,  set  in  the  lateral  seem  routine. 
If  it  is  a  1,  then  control  passes  to  location  vsf  where  the  amplitudes  are  stored  in  the 
fiducial  marks  table;  if  it  is  a  0,  the  amplitude  is  stored  in  the  signal  table. 
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vs. 


vsl, 


vsa. 


vsq. 


dap 

vsx 

lac 

X 

sal 

8s 

dac 

xp 

elf 

5 

law 

o 

o 

dac 

chu 

dac 

chd 

lac 

zf 

dac 

yu 

sar 

8s 

dac 

yd 

sar 

Is 

dac 

y 

setup  ydl 

elf 

2 

elf 

4 

idx 

ydl 

cma 

Cli-O] 

add 

y 

dac 

y 

szf 

2 

Jmp 

vsu 

lio 

y 

sil 

9s 

lac 

xp 

elf 

3 

dpy 

szf 

5 

Jmp 

vsp 

szf 

3 

Jmp 

vsq 

lac 

y 

sal 

Is 

sub 

yii 

spa 

stf 

2 

Jmp 

vsu 

stf 

5 

dzm 

nps 
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102 

VSt  , 
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6.  Constants  and  Temporary  Storage 
The  list  of  constants  differs  by  the  addition  of  dlf ,  defined  as  the  fiducial  mark 
half -width  and  the  dropping  of  kl,  the  film  advance  x-coordinate. 
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D.  Series  2a 

This  program  bears  the  same  relation  to  the  Series  2  program  as  the  Series  la 
does  to  the  Series  1.  The  changes  described  in  Sec.  A  apply  here  as  well. 
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E.  Series  3 

The  Series  3  film  reading  program  differs  in  many  ways  from  the  earlier  series: 
it  advances  film  frame-by-frame,  it  reads  two  fiducial  marks  and  it  reads  and  records 
a  set  of  timing  lights  —  all  this  in  addition  to  reading  the  usual  A-scope  trace.  One 
frame  of  the  film  is  sketched  as  Fig.  12. 


-PA -2164 


The  camera  which  takes  these  pictures  is  rigidly  mounted  if  front  of  the  scope, 
and  hence  the  registration  of  that  part  of  the  display  which  is  fixed,  i.  e. ,  the  timing 
lights  and  the  nixie  lights,  is  very  stable.  The  position  of  the  trace  on  the  A-scope 
may  vary,  however,  from  film  to  film,  and  the  relative  positions  of  the  film  reader 
and  Type  30  CRT  may  vary  from  day  to  day.  *  Thus,  for  each  film,  it  will  be  neces¬ 
sary  to  determine  the  locations  of  the  trace  and  the  timing  lights  as  the  reading  is 
begun;  in  order  to  make  this  possible,  a  new  routine,  the  fiducial  and  timing  marks 
position  calculation  routine,  has  been  added.  To  call  this  routine,  the  character 
dispatch  table  of  the  typewriter  control  routine  has  been  expanded  by  the  addition  of 
the  characters  "f"  and  "tn. 

:  While  the  Lincoln  Laboratory  reader  is  rigidly  clamped  so  that  there  is  a  constant 
distance  between  reader  and  CRT,  production  versions  of  the  reader  with  superior 
optics  are  made  to  allow  this  distance  to  be  adjusted  to  suit  the  particular  film  being 
read. 
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1.  Fiducial  and  Timing  Marks  Position  Calculation 

a.  Fiducial  Marks  This  routine  is  used  in  conjunction  with  the 
macroscope  w/reference  lines  already  described.  The  cycle  of  operation  is  as  follows: 
when  the  reference  lines  have  been  centered  on  the  left  fiducial  mark,  a  carriage  return 
is  typed.  The  computer  will  print  out  the  coordinates  of  the  point  in  the  raster  corres¬ 
ponding  to  the  intersection  of  the  reference  lines.  Then  the  character  "f"  is  typed;  the 
computer  will  respond  by  executing  a  tab.  Then,  when  the  character  "1"  is  typed  by 
the  operator,  the  coordinates  of  the  point  will  be  properly  stored  for  use  by  the  lateral 
scan,  and  other  routines.  The  same  sequence  is  followed  for  the  right  fiducial  mark, 
with  the  last  control  character  being  an  "r". 
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3-PA-2I84 

FIDUCIAL  MARKS  POSITION  CALCULATION 


ctl  ctf 
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fiducial  and  timing  marks  position  calculation  20  mar  6^ 
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dac 

Try 

Jmp 

ctl 

/execute  tab 


/listen  for  typewriter 


/find  out  if  1  or  r 


fl 
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b.  Timing  Marks  In  order  for  the  computer  to  line  up  properly 
on  the  timing  lights,  it  is  necessary  that  it  be  apprised  of  the  location  of  the  lower  left 
light  and  of  the  x-  and  y-  spacing  between  lights  just  before  the  beginning  of  the  run. 

The  timing  marks  position  calculation  routine  was  written  for  that  purpose. 

Again,  use  is  made  of  the  macroscope  w/reference  lines  routine.  The  reference 
lines  are  placed  so  as  to  cross  over  the  center  of  one  of  the  lights,  whose  position  in 
the  array  is  known.  As  before,  a  carriage  return  is  typed  to  terminate  that  routine. 
Then,  assuming  the  lower  left  light  is  in  the  first  column,  first  row,  the  number  of  the 
column  and  number  of  row  are  typed  followed  by  the  character  t:  thus, 

XXYYt 

when  XX  is  the  two-digit  octal  number  of  the  column  and  YY  is  the  two-digit  octal 
number  of  the  row.  For  instance, 

0702t 

would  be  for  the  seventh  column,  second  row. 

The  computer  will  type  out  a  tab  and  wait  in  a  listening  loop  for  the  operator  to 
type  a  character.  He  should  type  a  "1".  When  the  computer  has  typed  a  carriage 
return,  the  operator  must  use  macroscope  w/reference  lines  again  and  move  the 
reference  lines  so  that  they  cross  on  a  timing  light  in  a  different  row  and  a  different 
column  from  the  first.  He  then  types  XXYYt  as  before  and,  after  the  tab,  the  char¬ 
acter  "2".  The  routine  will  then  compute  the  positions  of  the  timing  lights  and  return 
to  the  typewriter  control  routine. 

The  algorithm  used  may  be  understood  by  referring  to  Fig.  13,  which  shows  the 
positions  of  the  images  of  the  timing  lights  on  the  scope  face.  The  timing  lights  reader 
subroutine  will  display  a  horizontal  bar  across  each  of  the  42  positions  and  will  consider 
the  light  to  have  been  on  if  two  or  more  points  are  seen  by  the  reader.  The  routine 
needs  to  have  available  the  coordinates  of  the  lower  left  light  and  the  spacing  between 
the  lights.  (The  actual  coordinates  computed  are  those  of  the  left  most  spot  of  the  bar 
used  to  read  the  lower  left  light.) 

110 


-PA -2165 


m  1  2  3  4  5  6  7  ,  10  11  12  13  14  15  16 


-scope  axes 


3 

2 


1 

1 

L,  1 

l  1  1 
l  + 

1  1  1 
l  1 

1  I 

1  1  H 

1  1 

I  I 

1 

1 

1  1 

1 

1  l 

l 

k- 

1  1 

xi - - 

1  1 

— x2 - " 

1  1 

— ♦  Dx  j« - 

n,T 


1 


Dy 

T 


Fig.  13  Timing  Lights. 


The  equations  used  are: 

X  =  x  -  (m  -1)  Dx  -  b 
1  1 

Y  =  yi  "  (nd  -1)  Dy 


where 


X,  Y  =  coordinates  of  left  most  spot  of  bar  used  to  read  lower  left  light, 


<x2  -*i> 


<y2  ■yl) 


Dx.Dy  =  spacing  between  lights  =  - -  ,  - - -  , 

(m2  |)  (n2  j) 

m.,  n.  =  column  and  row  numbers  of  timing  light  i,  (i  =1,2), 


x.,  y.  =  coordinates  of  that  light,  and 

l  i 

b  =  integral  part  of  one  half  of  the  length  of  the  bar  used  to  read  each  light  = 
[  2  c  (12)] . 


Ill 


The  numbers  m^,  n^,  and  n^  are  supplied  by  the  operator  through  the  typewriter 

as  indicated,  and  the  values  x^,  x^,  y and  y^  are  supplied  by  the  macroscope 
w/reference  lines  routine  (if  the  reference  lines  have  been  properly  lined  up).  The 
number,  b,  is  obtained  from  a  constant  stored  in  the  timing  lights  reader  subroutine. 
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TIMING  MARKS  POSITION  CALCULATION 


tpi 
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2.  Lateral  Scan  Routine 

There  are  two  major  differences  between  the  lateral  scan  routines  of  the  Series  1 
and  3  programs:  the  latter  has  additional  programming  (1)  to  read  the  fiducial  marks 
and  (2)  to  redisplay  the  results  of  reading  the  timing  lights. 

Although  there  are  two  fiducial  marks  per  trace  to  be  read  by  this  program,  the 
logic  used,  from  fst  to  hsa,  is  very  similar  to  the  routine  in  the  Series  2  program 
already  described.  In  this  case,  it  is  necessary  to  set  up  certain  addresses  depending 
on  whether  the  left  or  right  mark  is  being  read,  but  the  actual  reading  and  the  use  of 
the  indicator,  sin,  is  the  same.  At  lisi,  the  readings  of  both  marks  are  averaged  to 
get  the  reference  amplitude,  from  which  the  reported  amplitudes  are  measured. 

Earlier,  at  hal+7,  immediately  after  the  trace  had  been  scanned,  control  was 
transferred  to  the  timing  lights  reader  subroutine  to  read  the  lights.  Then,  later  on, 
after  the  trace  has  been  redisplayed,  a  stretch  of  coding  from  rlO  to  rd4  redisplays 
the  results  of  reading  the  timing  lights.  The  result  of  the  reading  of  the  lights  are 
packed  into  three  words  in  memory,  as  will  be  described  below,  and  the  coding  here 
is  merely  an  unpacking  of  these  words  and  a  display  of  points  at  the  corresponding 
coordinate  positions.  The  display  then  on  the  scope  recreates  very  closely  the  picture 
on  the  film,  except  that  the  nixie  lights  and  the  fiducial  marks  are  not  displayed. 

The  remainder  of  the  routine  is  the  same  as  the  earlier  versions. 


H6 


lateral  scan  routine  20  mar  i 
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/set  to  read  fiducial  marks 

dac 

sin 

fsl. 

law 

dlf 

/set  for  left  mark 

dap 

vsg 

law 

(fdl 
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fll. 

Jsp 

VS 

/read  left  mark 

law 

2 

add 

X 

dac 

X 

sas 

fmn 

Jrop 
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dac 

p2m 

/right 


/reset  to  go  left 
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Jmp  rib 

rb2. 

lac  rll 

/set  up  to  read  next  word 

sub  (l 
dap  rll 
lac  lux 
dac  lax 
dac  lex 
lac  luy 
add  uy 
dac  luy 
dac  lay 
dac  ley 
law  i  5 
dac  g3 
law  i  16 
dac  gl 

Jmp  rll 

/and  display  next  row 

rd4. 

isp  t3 

/displayed  ten  times? 

Jmp  rd9 

/no 

szs  40 

/yes  -  hold  the  display? 

Jmp  rd 

/yes 

o* 

oq 

* 

init  bn,  tba 

/no  -  set  up  to  normalize  signal 
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bn. 

lac 

sad 

(4ooooo 

Jmp 

bni 

sar 

8s 

sub 

p2m 

sal 

8s 

dac 

1  bn 

bni , 

index  bn,  (lac  tbe 

dun. 

szs 

10 

Jmp 

el 

szs 

30 

Jmp 

e 

ca. 

idx 

pc 

dzm 

xyz 

dzm 

ch 

law 

pc 

dap 

csm 

add 

rsz 

dap 

pnd 

csm. 

lac 

xor 

ch 

idx 

csm 

sas 

pnd 

Jmp 

csm 

lac 

ch 

dac 

xyz 

law 

pc 

add 

rsz 

sub 

(1 

dap 

•  3 

law 

pc 

Jda 

law 

735 

elf 

3 

szs 

i  50 

Jmp 

e 

lac 

pc 

sub 

sma 

nt 

Jmp 

rtl 

e  y 

Jsp 

Cff 

Jmp 

el 

hsj. 

elf 

6 

lio 

(flex  nps 

Jmp 

erp 

start 


/normalize  signal 


bn 

/should  the  same  trace  be  repeated? 
/yes 

/no  -  should  the  data  be  recorded? 
/no 

/yes  -  index  trace  counter 
/store  zero  in  checksum  register 

/set  up  to  compute  checksum 


/get  an  entry 
/compute  checksum 

/done  the  whole  record? 
/no 

/yes  -  store  checksum 


/record  data  on  tape 


/reading  a  block  of  n  traces? 

/no 

/yes 

/read  n  traces? 

/yes 

/no  -  go  advance  the  film 


122 


3,  Film  Advance  Subroutine 

Since  the  project  radar  film  is  framed,  the  position  of  the  image  of  the  trace  on 
the  scope  will  always  be  the  same.  Therefore,  the  film  advance  subroutine  is  very 
simple.  At  cfb,  the  motor  is  turned  on  by  setting  flag  6;  the  microswitch  is  then 
interrogated  as  before  until  the  motor  has  made  one  revolution,  and  when  it  has,  the 
motor  is  turned  off. 

The  routine  then  enters  a  delay  loop  for  about  60  milliseconds  to  allow  for  the 
decay  of  transients  in  the  control  lines.  The  motor  is  then  turned  on  again  until  it  has 
made  one  more  revolution,  so  that  the  film  will  have  been  advanced  a  total  of  four 
sprocket  holes,  or  one  frame. 

Note  that  there  is  no  provision  here  for  a  dummy  advance;  since  one  trace  is 
read  per  film  advance,  repeating  the  same  trace  is  equivalent  to  reading  all  traces  in 
view.  Hence,  sense  switch  2  is  not  used  in  this  version  of  the  program. 
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film  advance  subroutine  8  Jan  64 
/for  framed  film 


cff. 

dap 

cfx 

law 

i  2 

dac 

ch 

cfb. 

stf 

6 

cli 

lot 

11 

ril 

4s 

spi 

1 

Jmp 

cfl 

cfa. 

Jsp 

Cfj 

spi 

Jmp 

cfa 

cfl. 

Jsp 

cfj 

spi 

i 

Jmp 

cfl 

elf 

6 

law 

i  7777 

dac 

chi 

isp 

chi 

Jmp 

.-1 

isp 

ch 

Jmp 

cfb 

cfx. 

Jmp 

• 

Cfj, 

dap 

cfy 

szf 

1 

Jmp 

ctb 

cli 

iot 

11 

ril 

4s 

cfy. 

Jmp 

• 

start 

/save  return  address 
/set  up  to  run  motor  twice 

/turn  on  motor 


/turn  off  motor 
/set  up  to  delay 
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4.  Timing  Marks  Reader  Subroutine 

This  subroutine  uses  information  supplied  by  the  timing  marks  location  calculation 
routine,  namely,  the  values  X  =  c(xnb),  Y  =  c(yb),  Dx  =  c(ux)  and  Dy  =  c(uy).  It  then 
proceeds  to  display  bars  of  points  (n  points  long,  where  n  =  c(12),  initially  7;  this  value 
may,  of  course,  be  changed  by  the  operator).  Each  bar  intersects  a  timing  light  posi¬ 
tion  and  if  the  light  is  lit,  two  or  more  points  will  be  seen  by  the  reader.  *  The  bars 
are  displayed  from  bottom  to  top,  left  to  right  starting  at  the  lower  left  corner. 

When  a  timing  light  has  been  seen,  the  routine  computes,  from  the  display 
coordinates  used,  the  corresponding  bit  in  a  three  register  table  in  the  output  block. 

The  right-hand  14  bits  of  these  three  registers  may  be  taken  as  a  bit  picture  of  the 
timing  lights,  e.  g.  ,  the  pattern 

1 1  In  I  In  Itn  I 
tn  |  In  It  In  1 1 
t  Itl  nn  In  In 

on  the  film,  where  |  represents  light  on  and  t  represents  light  off,  gives 

000  011  100  110  010  001  or  034621 
000000011001010011  003123 

000001  010000  100  100  012044 

in  core.  These  three  words  are  written  out  on  magtape  as  words  5,  6,  and  7  of  the 
control  section  of  the  output  record. 


*  The  bar  is  made  up  of  a  series  of  points  displayed  at  every  second  addressable 
location  on  the  scope.  The  spacing  may  be  reduced  to  increase  detection  probability 
by  changing  the  contents  of  dx  from  1000  to  400. 
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TIMING  MARKS  RCADFR  SUBROUTINt 


J-PA-2186 
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timing  marks  reader  subroutine 


qi. 

dap 

qsx 

dzm 

tkl 

dzm 

tk2 

dzm 

til 

dzm 

tl2 

dzm 

tl3 

dzm 

hbO 

dzm 

hbl 

dzm 

hb2 

elf 

3 

lac 

yb 

dac 

y 

lac 

xnb 

dac 

xb 

qll. 

lac 

xb 

dac 

X 

q2. 

lac 

X 

lio 

y 

szf 

3 

Jmp 

q3 

dpy- 

-i 

lac 

X 

add 

dx 

dac 

X 

idx 

tkl 

sas 

12 

Jmp 

q2 

dzm 

tkl 

law 

1 

sub 

tk2 

dzm 

tk2 

spa 

q2*. 

Jmp 

q7 

lac 

y 

add 

uy 

dac 

y 

idx 

hbl 

sas 

(3 

Jmp 

qll 

lac 

yt> 

dac 

y 

dzm 

hbl 

lac 

xb 

add 

ux 

dac 

xb 

idx 

hb2 

sas 

(16 

Jmp 

qll 

qsx. 

Jmp 

• 

4  feb  64 

/save  return  address 


/set  up  initial  x-coordinate 
/of  lower  left  bar  =  X 
/initiate  x 


/was  a  point  seen  last  time? 
/yes 

/no  -  display  next  point 
/increment  x 


/finished  this  bar? 
/no 

/yes  -  zero  counter 


/was  more  than  1  point  seen? 
/yes  -  store  bit  in  tl  table 
/no  -  go  on  to  next  bar 


/through  with  this  set  of  3? 

/no 

/yes 


/move  to  next  column 


/done  all  columns? 

/no 

/yes  -  return  to  main  program 
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q3. 

idx 

OJ 

4-> 

elf 

3 

jmp 

Q2 

Q7» 

lac 

(2 

sub 

hbl 

add 

(til 

dap 

qal 

dap 

qa2 

lac 

hb2 

sub 

(15 

sza 

i 

Jmp 

q6 

dac 

hbO 

law 

1 

dac 

hb3 

q5> 

lac 

hb3 

sal 

s 

dac 

hb3 

isp 

hbO 

Jmp 

Q5 

qlO, 

lac 

hb3 

qal. 

ior 

qa2. 

dac 

Jmp 

q4 

q6. 

law 

1 

dac 

hb3 

Jmp 

qlO 

xb. 

0 

yfc. 

0 

xnb. 

0 

dx. 

1000 

ux, 

0 

uy. 

0 

12, 

7 

tkl. 

0 

tk2. 

0 

hbO, 

0 

hbl. 

0 

hb2 , 

0 

hb3. 

0 

/count  number  of  points  seen 


/compute  register  in  tl  table 


/compute  bit  number  in  register 


/shift  bit  to  correct  position 


/OR  the  bit  into  the  tl  table 


/x-coor  of  current  column 
/y-coor  of  lowest  row 
/initial  x  of  lowest  left  bar 
/distance  between  points  on  bar 
/initial  x-dist  between  bars 
/initial  y-dist  between  bars 
/number  of  points  per  bar 
/cntr  -  points  displayed  per  bar 
/cntr  -  points  seen  per  bar 
/cntr  -  shifts 
/cntr  -  bars  per  column 
/cntr  -  number  of  columns 
/bit  holder 


start 
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5.  Constants  and  Temporary  Storage 

Since  the  film  is  framed  and  no  tracking  is  done,  all  constants  having  to  do  with 
film  advancing  are  dropped  from  the  list.  Also,  the  registers  til,  tl2,  and  tl3  in  the 
output  record  are  now  identified  as  containing  the  timing  light  readings.  Otherwise  , 
the  list  is  as  before. 
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III.  MODIFICATIONS  TO  FILM  READING  PROGRAM  SYSTEM 

Two  further  changes  have  been  made  to  the  Film  Reading  Program  System,  its 
programs  and  equipment.  First,  the  tape  system  was  changed  to  one  which  provided 
for  block  transfers  from  memory  with  core  memory  references  interleaved  with  main 
frame  operation  and  second,  the  assembly  program  was  changed  from  MACRO  to 
MIDAS. 

A.  Tape  System 

A  new  tape  system,  consisting  of 

1)  a  High-Speed  Channel  Control  -  Type  19 

2)  a  High-Speed  Data  Control  -  Type  131 

3)  an  Automatic  magnetic  Tape  Control  -  Type  510,  and 

4)  three  IBM  Tape  Transports  -  Model  729  VI, 

was  added  to  the  installation  replacing  the  Type  51  Tape  Control  and  Type  50  Transports. 
This  new  equipment  allowed  recording  at  densities  of  200,  556  and  800  characters /inch 
and  allowed  for  automatic  block  transfers  to  and  from  memory. 

The  effect  on  the  film  reading  programs  was  minimized  by  writing  a  tape  package 
which  looked  to  the  user  almost  exactly  like  the  routines  already  used.  *  As  a  matter  of 
fact,  the  same  block  output  routine  was  used  to  set  up  the  calling  sequences. 

There  is  one  difference  between  the  tape  packages  that  is  worth  noting:  it  was  not 
practicable  to  include  the  scatter -gather  feature  in  the  new  package.  This  has  not  been 
a  constraint,  however,  since  the  film  reading  programs  themselves  have  not  been 
required  to  use  that  feature. 

A  listing  of  the  routines  is  given  in  Appendix  D:  it  is  a  version  with  absolute 
addresses  which  can  be  assembled  without  fear  of  symbol  conflict. 

B.  MIDAS  Assembly  Program 

Minor  modifications  have  been  made  to  the  programs  to  adapt  them  for  the  MIDAS 
assembler: 

*  See  Appendix  B. 
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1)  the  macro  definitions  of  the  Extended  MACRO  System  (see 
Appendix  A)  have  been  incorporated  into  the  first,  or 
definitions,  tape  of  the  program; 

2)  certain  symbols  and  parameter  assignments  have  also  been 
incorporated  into  that  tape  (see  listing  on  following  two  pages); 

3)  pseudo-instruction  names  with  more  than  four  characters 
have  been  spelled  out  in  the  listing,  since  MIDAS  recognizes 
symbols  up  to  six  characters  long  and  no  longer  equates  such 
symbols  as  flex  and  flexo. 
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film  reading  program  system 
/for  MIDAS  compilation 
/definitions 
define 
terminate 


series  1/2  20  jul  64 


bintape 
dzm  7 


define 

terminate 

define 

terminate 

define 

terminate 


bcdtape 
law  1 
dac  7 


rewind 

jsp  633 


weof 
jsp  415 
nop 


s  — 1  s 

dpy=730007 
clo=szoVspaVsma  i 
xx=hlt 
clc=claVcma 
szm=szaVsma 
spq=szm  i 


define 

sensewitch  a 
szs  8xa 

terminate 

define 

init  a,b 
law  b 
dap  a 

terminate 

define 

index  a,b,c 
idx  a 
sas  b 
jmp  c 

terminate 

define 

swap 
rcl  9s 
rcl  9s 

terminate 
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define 

listen 

terminate 

claVcliVclf  1 
szf  i  1 

Jmp  .-1 
tyi 

define 

load  a,b 
lio  (b 
dio  a 

terminate 

define 

setup  a,b 
law  i  b 
dac  a 

terminate 

define 

count  a,b 
isp  a 
jmp  b 

terminate 

define 

move  a,b 
lio  a 
dio  b 

terminate 

define 

clear  a,b/c 

c  > 

init  c,a 
dzm 

index  c , (dzm  b  1, c 

terminate 

start 
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IV.  CONCLUSIONS 

The  film  reading  program  system  described  herein  has  been  written  to  digitize 
A -scope  traces  in  three  different  formats.  It  is  evident  that  additional  "series"  could 
be  prepared  to  read  film  in  other  formats,  and  as  a  matter  of  fact,  three  such  programs 
have  been  written  for  nonproduction  film  reading.  Since  the  framework  is  already  avail¬ 
able,  the  filling  out  of  the  program  for  a  particular  job  is  reasonably  easy. 

The  accuracy  with  which  the  reader  records  the  information  from  the  film  has 
been  the  subject  of  a  recent  study?  which  showed  that  within  the  limits  of  the  quantiza¬ 
tion,  there  is  essentially  no  error  introduced  by  the  film  reader. 

Thus,  the  Programmable  Film  Reader  is  a  flexible  and  accurate  tool  for  the 
reduction  of  large  amounts  of  film  data  to  computer  assimilable  form. 


*  See  Appendix  E. 
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APPENDIX  A 

EXTENDED  OPS  AND  MACROS 

extended  ops  and  macros  8  november  1962 

lap=cla  100 

oh=iot  i 
c 10=651600 

spq=650500 

szm=640500 

define 

senseswitch  A 
repeat  3,  A=A+A 
szs  A 
term 

define 

initialize  A,  B 
law  B 
dap  A 
term 

define 

Index  A,  B,  C 
idx  A 
sas  B 

Jmp  C 
term 

define 

listen 

cla+cli+clf  1-opr-opr 
szf  I  1 

Jmp  .-1 

tyl 

term 

define 

swap 
rcl  9s 
rcl  9s 
term 

define 

load  A,  B 
llo  (B 

dio  A 
term 
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define 


setup  A,  B 
law  i  B 
dac  A 
term 

define 

count  A,  B 
isp  A 

Jmp  B 
term 

define 

move  A,  B 
lio  A 
dio  B 
term 

define 

clear  A,  B 
init  .+2,  A 
dzm 

index  .-1,  (dzm  B+l, 
term 

start 
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APPENDIX  B 

MAGNETIC  TAPE  ROUTINES  FOR  PROGRAMMED  TAPE  SYSTEM 


The  tape  equipment  used  by  the  computer  for  which  these  film -reading  programs 
were  written  requires  all  timing  to  be  done  under  program  control  and  requires  char¬ 
acter  by  character  transfer  between  computer  and  tape.  A  set  of  subroutines  is  used  to 
control  timing  and  information  transfer  in  such  a  way  as  to  produce  standard  IBM  for¬ 
matted  tapes.  These  routines  were  written  by  William  Fletcher  of  Bolt,  Beranek  and 
Newman  in  the  DECAL  language  and  are  now  available  from  the  Digital  Equipment 
Computer  Users  Society  (DECUS).  The  listing  which  follows  is  an  instruction  by 
instruction  translation  of  the  routines  from  DECAL  to  MACRO. 

There  are  four  routines: 

I.  Scatter  read  and  check  forward  and  reverse.  This  routine  will  read  words 
from  tape  in  either  the  forward  or  reverse  direction  and  either  store  them  in  specified 
areas  in  core  or  check  them  against  the  contents  of  such  areas.  The  film  reading  pro¬ 
grams  use  only  the  checking  facility,  both  forward  and  reverse. 

II.  Gather  write  forward.  It  is  possible  to  write  only  in  the  forward  direction, 
so  this  routine  has  only  the  one  option.  It  will  take  words  from  specified  areas  in  core 
storage  and  write  them  as  an  IBM  record  on  tape.  In  addition,  the  routine  will  write  an 
end-of-file  record  if  entered  at  location  wef. 

III.  Space.  This  routine  will  space  the  tape  forward  or  in  reverse  a  specified 
number  of  records. 

IV.  Rewind.  This  routine  rewinds  the  tape. 

As  used,  all  of  the  routines  use  logical  tape  unit  1. 
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magtape  routines  15  Jan  64 


/I.  scatter  read  and  check  forward  and  reverse 
201/ 


src. 

lio 

csa 

/entry  for  check  mag  tape  reverse 

sma 

200 

srr , 

lio 

cda 

/entry  for  read  mag  tape  reverse 

dac 

pic 

/save  return  address 

law 

rel 

/set  up  to  check  for  eob  character 

dap 

ebx 

lac 

1ml 

/set  stp  to  decrement 

dac 

stp 

brh. 

law 

372 

/set  last  delay 

dap 

std 

lac 

(rlr 

6s 

/set  final  rotates 

dac 

r5 

dac 

r6 

stf 

5 

/flag  5=1  indicates  reverse 

Jmp 

s8 

sfc. 

lio 

csa 

/entry  to  check  mag  tape  forward 

sma 

200 

sfr , 

lio 

cda 

/entry  to  read  mag  tape  forward 

dac 

pic 

/save  return  address 

hi. 

law 

mis 

/don*t  check  for  eob  character 

dap 

ebx 

lac 

(law  1 

/set  stp  to  increment 

dac 

stp 

frb. 

law 

127 

/set  final  delay 

dap 

std 

lac 

cno 

/no-op  the  final  rotate 

dac 

r  5 

dac 

r6 

lac 

(ril 

6s 

/rotate  order  for  forward 

elf 

5 

/flag  5=0  indicates  forward 

s8. 

dac 

rl 

/set  the  rotates 

dac 

r2 

dac 

r3 

dac 

r4 

dio 

dl 

/set  the  store  or  compare  order 

dlo 

d2 

lac 

stl 

/Jmp  in  if  transport  running 

sza 

Jmp 

fir 

law 

200 

/start  transport  forward  or  reverse 

szf 

5 

law 

240 

Jda 

set 

rll 

3s 

/check  for  load  point 

spi 

Jmp 

frs 

law 

i  4000 

/bypass  3  inches  if  at  load  point 
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frs. 

Jda  del 
law  i  505 

/forward  read  starting  time 

brs. 

szf  5 
law  i  226 

/backward  read  starting  time 

fir. 

Jda  del 
ldx  fch 

/first  character  indicator 

dzm  clcr 

/initialize 

dzm  psc 
dzm  noc 
xct  stp 

/set  end  test  to  fall 

dac  mte 
dzm  mpt 
lio  i  pic 

/get  first  address  or  bypass  number 

law  nor 

/set  entry 

spl 

law  byp 
dap  lox 
spi 

/bypass  is  first 

jmp  sel 
dio  mpt 

/set  pointer  to  first  address 

idx  pic 

/set  end  check 

sel. 

lac  i  pic 
dac  mte 
ldx  pic 
law  i  7777 

/look  for  80  milliseconds 

dac  Tot 
elf  2 

/clear  flags  and  buffer 

elf  4 
cl f  5 
elf  3 
mcb 


lko, 

szf  2 

/wait  for  flag  2 

lox. 

Jmp  . 

/go  to  normal  entry  or  bypass 

entry 

isp  lot 

Jmp  lko 

/count 

Jsp  upc 

/index  pickup  and  stop  transport 

nch. 

Jmp  . 

/error  halt  for  no  characters 

on  tape 

rel. 

law  mis 
dap  ebx 

Jmp  sel 

/undo  eob  check 

/clear  io  and  read  in  first  6 

nor. 

cli 

xct  h5 
szf  1  2 
nop 

szf  i  2 
xct  cno 

Jmp  ent 

bits 

/10  norm-5  to  speed  up 

/15  norm-5  to  speed  up 

/away  we  go 

top. 

szf  1  2 

cno. 

nop 

/10  norm-5  to  speed  up 

stp, 

0 

cli 

szf  i  2 

Jmp  mis 
mrc 

/law  1  or  law  i  1 

/clear  lo  and  check  for  miss 

/read  first  six  bits 

add  mpt 

/increment  pointer 
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sad  mte 

Jmp  swi 

/check  for  end  of  memory  block 

dac  mpt 

/store  the  incremented  pointer 

ent, 

szf  i  2 
xct  cno 

/15  norm-5  to  speed  up 

szf  i  2 
xct  h2 

/5  norm-20  to  slow  down 

r3. 

0 

szf  i  2 

/rotate  io  and  check  for  miss 

ebx, 

Jmp  . 

/miss  or  relook 

mrc 

/read  second  six  bits 

nfc, 

dzm  fch 

/indicate  not  first  character 

law  mis 
dap  ebx 
xct  h3 

/undo  eob  exit  since  2nd  character  seen 

h2. 

xct  cno 
szf  i  2 

/15  norm-5  to  speed  up 

xct  h2 

/5  norm-20  to  slow  down 

r4, 

0 

szf  i  2 

Jmp  mis 

/rotate  io  and  check  for  miss 

mrc 

/read  third  six  bits 

r6. 

0 

/final  rotate  or  nop 

rcl  9s 
rcl  9s 

/word  into  ac 

d2. 

0 

Jmp  top 

Jmp  rdc 

/store  or  compare 

mis , 

dio  bdw 

/record  last  character  read  and  enter 

lac  fch 
sza  i 

Jmp  msn 

/miss  if  not  first  character 

law  1700 
sas  bdw 

Jmp  msn 
lac  par 
sza 
clc 
szf  4 
cma 

/is  first  character  17? 

sza  i 

Jmp  msn 
xct  std 

Jda  del 

/check  for  proper  parity 

Jsp  upc 

/index  pickup  and  stop  transport  since 
/eof  mark  seen 

efh. 

Jmp  . 

/halt  because  end  of  file  found 

swi. 

lac  i  pic 

/get  next  first  address 

spa 

Jmp  bys 

/if  minus,  it  is  number  to  bypass 

szf  i  2 
xct  h2 

/5  norm-20  to  slow  dow 
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rl. 

0 

/rotate  io  for  next  character 

szf  i  2 

Jmp  mis 

/check  for  miss 

mrc 

/read  second  six  bits 

dac  mpt 
ldx  pic 
lac  i  pic 

/store  new  pointer 

dac  mte 

/store  new  mte 

szf  i  2 
xct  h2 

/5  norm-20  to  slow  down 

r2. 

0 

szf  i  2 

Jmp  mis 

/rotate  lo  and  check  for  miss 

mrc 

/read  third  six  bits 

ldx  pic 

/step  pickup  for  next  block 

r5. 

0 

/final  rotate  or  no-op 

rcl  9s 
rcl  9s 

/word  into  ac 

dl. 

0 

/store  or  compare 

Jmp  stp 

/loop 

rdc. 

dac  bdw 

/store  the  offending  word 

idx  ckr 

/indicate  a  read  check  error 

spc. 

stf  5 

/set  flag  5  so  3  won't  get  set 

msl. 

szf  i  5 
stf  3 
elf  2 

/record  a  miss  (flag  3)  unless  3  on 

msn, 

mcb 

/clear  buffer  for  next  character 

law  i  5 
dac  lot 

/set  for  200  /s  look 

msk. 

szf  2 

Jmp  msl 

/start  over  when  character  seen 

isp  lot 
jmp  msk 

/continue  looking 

xct  stp 
add  bio 
dac  bio 

/update  block  count 

fsh. 

lac  i  pic 

cma 

sza  i 

Jmp  s4 
ldx  pic 
jmp  fsh 

/step  pickup  to  return 

s4. 

idx  pic 
szf  b 

jmp  s6 
szf  3 

/stop  and  error  return  if  parity  err< 

Jmp  s6 

/same  if  missed  character 

idx  pic 
lac  ckr 
sza 

/set  return  for  normal 

idx  pic 
lac  sop 

/return  1  past  normal  if  check  error 
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s7a. 

dac  stl 

/record  whether  or  not  stopped  and 

dzm  sop 

/reset  to  stop  next  time 

sza 

Jmp  nod 

/if  not  zero,  don't  stop 

std. 

law  i  0 

Jda  del 
lio  unt 

/final  delay 

msm 

/whoa 

nod , 

lio  psc 
stf  2 
xct  stp 
add  mpt 
sas  mte 

Jmp  s7 
spi  i 

/2  on  unless  psc  +  and  ptr  at  end 

elf  2 

s7, 

law  bio 
add  unt 
dap  dbl 

lac  bio 

/get  current  block  count 

dbl. 

dac 

/store  block  count  for  current  unit 

mcs 

/status  bits  in  io  for  return 

Jmp  1  pic 

/return  to  calling  program 

St), 

cla 

Jmp  s7a 

/force  a  stop 

byp. 

cli 

/clear  io  and  read  first  six  bits 

xct  h5 

lac  i  pic 

/get  the  pass  count  in  the  ac 

szf  i  2 
xct  cno 

/15  norm-5  to  speed  up 

szf  i  2 
xct  cno 

/15  norm-5  to  speed  up 

szf  i  2 
xct  h2 

/5  norm-20  to  slow  down 

bys. 

ril  6s 
szf  i  2 

/check  for  miss 

xct  ebx 

/miss  or  relook 

h5. 

mrc 

/read  second  six  bits 

dac  psc 
sal  Is 
add  psc 
dac  psc 

/times  3 

sza  i 

Jmp  spc 

/bypass  zero  means  end 

idx  pic 

/step  pic 

xct  h3 

Jmp  mis 

/check  for  miss 

mrc 

/read  third  six  bits 

idx  psc 
idx  psc 

/count  2 
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psl. 

isp 

psc 

sma 

200 

Jmp 

top 

szf 

nop 

i  2 

h3. 

szf 

i  2 

xct 

h2 

xct 

h3 

Jmp 

mrc 

mis 

xct 

nfc 

Jmp 

psl 

set. 

0 

dac 

exi 

law 

3 

and 

unt 

dac 

unt 

law 

bio 

add 

unt 

dap 

gbl 

gbl. 

lac 

dac 

bio 

si. 

lio 

msm 

mcs 

unt 

sma 

200 

Jmp 

rwi 

law 

20 

and 

set 

sza 

i 

Jmp 

s2 

ril 

2s 

spi 

1 

Jmp 

uah 

CO 

ro 

w 

law 

i  764 

Jda 

del 

lac 

sza 

par 

law 

10 

ior 

set 

lor 

unt 

rcl 

9s 

rcl 

mcb 

msm 

mcs 

9s 

s5. 

Jmp 

i  exi 

dxi. 

0 

rwl. 

ril 

s 

spi 

i 

Jmp 

si 

uah. 

Jsp 

upc 

unh. 

Jmp 

• 

unt. 

1 

/count  each  character 
/re-enter  reading  after  countup 

/10  norm-5  to  speed  up 

/5  norm-20  to  slow  down 

/check  for  miss 

/read  character 

/indicate  first  character  passed 


/and  off  unit  bits 


/get  block  count  for  current  unit 
/store  it 

/select  unit  and  interrogate 


/unit  is  ready  if  bit  0=0 


/unavailable,  is  file  protect  on  write 

/transport  stopping  time 

/do  the  order  after  clearing 
/the  status  bits  in  io  for  return 


/rewinding  if  bit  1=0 


/undex  pic 
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cda. 

dac  1  mpt 

csa , 

sad  1  mpt 

bdw. 

0 

sop, 

0 

stl. 

0 

bio, 

0 

bkl , 

0 

bk2. 

0 

bk3. 

0 

par. 

0 

mpt. 

0 

mte , 

0 

pic. 

0 

del. 

0 

dap  dex 

/20  yis  per  count 

al. 

nop 

lsp  del 

Jmp  al 

dex. 

Jmp  . 

upc. 

dap  ure 

1ml, 

law  1  1 
add  pic 
dac  pic 

dzm  sop 
dzm  stl 

/record  the  stop 

lio  unt 
msm 

mcs 

/stop  the  unit  and  get  status  bits 

ure, 

Jmp  . 

/n. 

gather  write  forward 

51/ 

gwf. 

dac  pic 

/entry  to  write  a  block 

lac  stl 

/start  writing  immediately  if 

sza 

jmp  cl4 

/transport  running 

law  220 

Jda  set 

/start  the  transport 

law  las 
add  unt 
dap  dmx 

/set  to  record  max  for  current  unit 

ril  3s 
spi 

Jmp  cl 

/check  for  load  point 

law  i  6000 
jda  del 

/extra  delay  for  first  block 

cl. 

law  i  301 

Jda  del 

/normal  delay  before  writing 
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cl4. 

lac 

1  pic 

/exit  immediately  if  first  word  negative 

spa 

Jmp 

cl2 

/store  first  pointer  and  enter  loop 

dac 

mpt 

Jmp 

c7 

c**. 

mwe 

/write  the  second  six  bits 

ell. 

rll 

6s 

/rotate  third  six  bits  Into  position 

Idx 

mpt 

/increment  pointer  and  check  for 

sas 

mte 

/end  of  block 

Jmp 

c5 

/fetch  new  pointer  and  store 

lac 

1  pic 

dac 

mpt 

/negative  signifies  end  of  list 

spa 

Jmp 

clO 

xct 

c4 

/write  third  six  bits  after  delaying 

5 

c7, 

Idx 

pic 

/fetch  new  end  check 

lac 

1  pic 

dac 

mte 

c6. 

idx 

pic 

/fetch  next  word  to  write 

lio 

1  mpt 

mwe 

/write  the  first  six  bits 

xct 

ell 

/rotate  2nd  six  Into  position,  delay 

5 

law 

1  1 

Jda 

del 

/delay  **5 

Jmp 

c4 

c5. 

xct 

.  1 

/delay  25 

xct 

cno 

xct 

c4 

/write  third  six  after  5  delay 

xct 

c5 

/delay  40 

xct 

c5 

jmp 

c6 

clO, 

mwe 

/write  the  final  six  bits 

Idx 

bio 

/step  block  counter 

dmx. 

dac 

/record  max  for  current  unit 

c!2. 

Idx 

pic 

law 

1  13 

/delay  235 

Jda 

del 

meb 

/clear  writers 

mes 

/status  bits  to  lo 

stf 

2 

/error  halt  If  end  point  passed 

rll 

6s 

spl 

elf 

2 

spl 

1 

/force  a  stop  If  error 

dzm 

sop 

/record  a  continue 

lac 

sop 

dac 

stl 

dzm 

sop 

/don't  stop  If  sop  not  zero 

sza 

Jmp 

c!3 
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fwh. 

law  1  1*7*1 

Jda  del 

/halting  time 

lio  unt 
msm 

/stop  the  transport 

cl3. 

mcs 

/status  bits  to  lo  for  return 

szf  i  2 

Jrap  s7 

/halt  If  end  point  passed 

eph. 

Jmp  . 

/end  point  halt 

wef , 

dac  pic 

/entry  to  write  end  of  file 

lac  unt 

Jda  set 

/stop  the  transport 

law  230 

Jda  set 

/start  write  even  parity 

law  1  *1000 
jda  del 

/3  Inch  gap 

llo  (170000 
mwc 

/write  the  end-of-flle  character 

dzm  sop 

/force  a  stop 

las. 

Jmp  cl2  1 

/enter  last  of  write  routine 

mxl. 

0 

mx2. 

0 

mx3. 

0 

/III. 

space 

iV 

spt. 

dac  spx 

/save  return 

lac  1  spx 
spa 
cma 
sza  1 

Jmp  spr 

/return  Immediately  If  count  zero 

cma 

dac  sco 

/set  the  block  counter 

llo  1  spx 

/sign  of  lo  Indicates  forward 

law  sfr 

/or  reverse  -  set  for  forward  or 

spl 

law  srr 
dap  spo 

/reverse 

lac  sco 

/ready  to  enter  loop 

spl, 

add  (l 

/see  If  only  one  block  left 

sza 

Idx  sop 

/continue  unless  only  one  left 

igt. 

law  1  620 

Jda  del 

/time  past  gap  trash 

spo. 

Jsp 

/either  sfr  or  srr 

777777 

/do n1 t  store  anywhere 

nop 

lsp  SCO 

Jmp  spl 

/ignore  errors 
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spr, 

idx  spx 

/block  count  In  ac  for  return 

lac  bio 

Jmp  1  spx 

spx. 

0 

/IV. 

rewind 

5/ 

rew, 

dac  pic 

law  340 

Jda  set 

/set  to  rewind 

llo  unt 
msm 

/clear  out  the  rewind  order 

dzm  bio 

Jmp  s7 

/set  block  count  to  zero 

start 


appendix  c 

EQUIPMENT  CIRCUIT  DIAGRAMS 

Figure  Cl  is  a  circuit  diagram  of  the  original  film  reader  electronics  and 
electrical  connections.  Since  this  drawing  was  prepared,  the  difference  amplifier 
DEC  Type  1547  has  been  replaced  by  a  Type  1572,  since  the  former  is  no  longer  being 
manufactured  and  the  latter  is  said  to  be  an  improved  replacement  type. 

Figure  C2  shows  the  connections  in  the  computer  itself. 
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Fig.  Cl  Film  reader  circuit  diagram 


Fig.  C2  Computer  connections 


APPENDIX  D 


MAGNETIC  TAPE  ROUTINES  FOR  AUTOMATIC  EQUIPMENT 

The  set  of  magnetic  tape  routines  given  in  the  listing  which  follows  was  written 
by  Bert  Schafer  to  replace  the  earlier  set  when  the  Type  510  Tape  Control  and  IBM 
drives  were  added  to  the  installation.  They  are  used  in  much  the  same  manner  as  the 
Fletcher  routines  described  in  Appendix  B  except  that  the  'scatter-gather'  feature  has 
been  dropped.  Since  the  calling  sequences  were  made  to  be  of  the  same  form  as  those 
for  the  earlier  routines,  the  same  block  output  routine  can  be  used  with  either  set. 
There  are  six  entries  to  the  routines  by  the  calling  sequences  listed: 

1.  Write 
jsp  70 

extended  address  of  first  register 
1  +  extended  address  of  last  register 
unsuccessful  write  return 
end  point  return 
normal  return 

2.  Read 
jsp  440 

extended  address  of  first  register 
1  +  extended  address  of  last  register 
unsuccessful  read  return 
end  of  file  return 
normal  return 

3.  Space 
jsp  561 

number  of  records  to  space  (+  =  forward,  -  =  backward) 
number  of  records  too  large  return 
end-of-file  return 
normal  return 

4.  Write  End-Of-File 
jsp  415 

end  point  return 
normal  return 
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5.  Read  Compare 
jsp  503 

extended  address  of  first  register  in  reference  block 
1  +  extended  address  of  last  register  in  reference  block 
unsuccessful  read  return 
end -of -file  return 
no  compare  return 

6.  Rewind 

jsp  633 
return 

Note  that  it  is  not  possible  to  read  or  write  in  the  reverse  direction  with  this  equipment. 
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schafer  tape  package  for  ibm  equipment  17  Jul  64 
/symbols  omitted  from  this  version 


swi=722046 

swo=726046 


5/ 

0 

1 

0 

0 

0 

0 

0 

0 

/density,  0  for  200  cpl,  1  for  556,  2  for  800 
/unit,  0  thru  7 
/parity,  0  odd,  1  even 

/rewind  indicator,  0  for  no,  4000  for  rewind 
/+  means  start  of  function,  -  otherwise 
/record  pointer 

/location  of  Jsp  to  tape  package 
/select  instruction 

repeat  53*0 

/table  of  functions 

Jda  373 

/initialize  rwi,  Js,  fup,  tcu-unit  free  sr 

law  1  3 
dac  720 
law  1  3 
dac  721 

/init  blank  tape  counter 

/init  rewrite  counter 

Jsp  201 

731071 

/go  to  tcu-unit  free  sr,  setting  sof  to  +0 

Jsp  267 

/process  calling  sequence  for  data  channel 

sla 

lio  712 

3  WO 

/swc  out 

jsp  333 

/execute  function,  test  for  acceptance 
/and  completion 

1 

Jmp  116 
law  5 
add  13 
dap  115 
lac  373 
ral  Is 
sma 
lem 
jmp  . 

/increment  record  count 
/error  return 

/no  error — go  to  normal  return 

/return  to  main  program 

jsp  166 

/go  to  see  if  any  errors  beside  end  point 

jmp  123 

/non-end  pt  errrors 

cli 

/indicates  end  pt  not  during  wbt 
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law  4 

Jmp  107 

/go  to  end  pt  return  in  main  program 

Jsp  201 

730^71 

/basic  backspace  function 

Jsp  332 

/disconnect  data  control  and  execute  function 

-1 

/decrement  record  count 

Jmp  147 

/error  return  from  backspace  after  write 

lsp  721 

/normal  return 

Jmp  75 

/rewrite 

law  i  10 

dac  704 

/set  counter  to  write  blank  tape 
/8  times  for  a  total  of  6  inches 

Jsp  201 

731071 

/basic  write  mtf 

Jsp  332 

/disconnect  data  control  and  execute  function 

-0 

/do  not  change  record  count 

Jmp  153 

/error  return  from  write  blank  tape 

lsp  704 
Jmp  134 

/normal  return 

/6  inches  blank  tape 

written 

lsp  720 

Jmp  73 

/init  rewrite  counter 

law  3 

Jmp  107 

/go  to  unsuccessful  return  in  main  program 

Jsp  407 

llo  672 

Jsp  356 

/save  state  reg  and  initial  loc  counter 

Jmp  130 

/go  to  normal  return 

Jsp  166 

/blank  tape  error 

Jmp  157 

/there  are  non-end  pt.  errors 

llo  706 

/make  10  negative  implying  end  pt  during  wbt 

Jmp  121 

/go  to  end  pt  return  in  main  program 

Jsp  407 
llo  673 
Jsp  356 

ral  7s 
spa 

/save  state  reg  and  init  loc  counter 

Jmp  155 

/end  pt 

Jmp  l4l 

/continue  write  operations 

dap  174 

swap 

/routine  to  determine  if  other  errors 
/beside  end  pt 

and  714 
sza  1 

/mask  out  tioe  bit  and  all  non-error  bits 

ldx  174 
Jmp  . 

/no  other  errors  beside  end  pt 
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/tcu-unit  free  sr 

lio 

706 

dio 

11 

/setting  sof  neg  means  not  start  of  function 

dap 

245 

Jmp 

224 

dzra 

11 

/setting  sof  pos  means  start  of  function 

dap 

245 

/set  return  to  1+  loc(jsp  tez) 

dap 

210 

nop 

nop 

lac 

7 

sal 

7s 

/move  parity  Indication  into  bit  10 

ior 

/construct  function  with  correct  parity 

nop 

dac 

336 

/store  into  execution  routine 

Idx 

245 

/set  return  to  2+  loc(jsp  tez) 

law 

1 

add 

5 

sal 

3s 

lor 

6 

sal 

6s 

lor 

10 

lor 

706 

dac 

14 

/store  constructed  select  instruction 

lac 

662 

dac 

705 

/set  counter  to  -66666  decimal 

sfc 

JmP 

231 

Jmp 

243 

Jsp 

407 

isp 

705 

Jmp 

226 

ego 

/tcu  not  free  within  5  secs 

llo 

663 

lac 

11 

spa 

lio 

664 

Jsp 

356 

/go  to  error  typeout  specifying  cbl  or  cb2 

Jmp 

367 

/go  to  halt  again 

lac 

11 

/tcu  is  free — is  this  start  of  function? 

spa 

Jmp 

. 

/normal  exit 

xct 

14 

/select  tape 

rsr 

rir 

Is 

spi 

Jmp 

246 

/tape  is  rewinding 

lac 

662 

dac 

705 

/set  counter  to  -66666  decimal 

rsr 

spi 

1 

Jmp 

245 

/normal  exit 

155 

Jsp  407 

/save  state  reg  and  init  loc  counter 

lsp  705 

Jmp  255 

ego 

/unit  not  free  within  5  secs 

lio  665 

jsp  356 

jmp  246 

/try  again 

/sr  to  load  data  channel 

dap  322 

/set  up  return 

lac  373 

dap  272 

lac  • 

/pick  up  reg  containing  1st  address 

/of  output  or  input  block 

dac  711 

spa 

Jmp  327 

/illegal  calling  sequence 

sub  667 

/(1st  address)  -  (last  address  of  package) 

spq 

Jmp  323 

/illegal  except  for  write 

add  667 

/restore  1st  address 

sub  67O 

/(1st  address)  -  040000 

sma 

Jmp  327 

/illegal  calling  sequence 

ldx  272 

xct  272 

s  pa 

Jmp  327 

/illegal  calling  sequence 

sub  711 

dac  712 

/store  tentative  word  count 

spq 

Jmp  327 

/illegal  calling  sequence 

add  711 

/restore  2nd  address 

sub  67O 

/(2nd  address)  -  040000 

szm 

/2nd  address  may  be  ^  040000 

Jmp  327 

/illegal  calling  sequence 

llo  711 

Jmp  . 

llo  336 

/pick  up  function 

ril  9s 

spl  1 

Jmp  301 

/legal  for  write 

llo  671 

Jsp  356 

/type  out  error  message  for  illegal 

/calling  sequence 

Jmp  145 

/go  to  unsuccessful  return 
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/routine  to  execute  function  and  wait  for  completion 


sdf 

dap 

355 

dap 

345 

xct 

0 

14 

sfc 

Jmp 

344 

lio 

666 

Jsp 

356 

Jmp 

335 

Jsp 

175 

lac 

• 

add 

12 

dac 

12 

idx 

355 

rsr 

ril 

Is 

spi 

i 

idx 

355 

Jmp 

/set  up  return 

/select  tape  to  clear  indicators 
/in  state  register 

/function  to  be  executed  is  prestored  here 


/function  accepted 

/function  not  accepted — type  error  message 
/try  again 

/function  accepted  - 

/is  tcu  free  in  less  than  5  secs? 

/pick  up  record  number  increment 
/or  decrement 


/error  typeout  routine 

dap  372 
ril  6s 
tyo 

ril  6s 
tyo 
ril  6s 
tyo 

lio  713 
tyo 

lac  707 
lio  710 
hit 
jmp  . 


/set  up  return 


/put  code  for  carriage  return 
/in  right  6  bits 


/return  to  program  which  called 
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/initialization  routine 

/l+loc(jsp  to  tape  package) 
dap  406  /set  up  return 

dzm  10 

lac  373 
dap  563 
nop 

sub  456  /I 

dap  13 

nop 

nop 

nop 

Jmp  . 


dap  4l4 
rlc 

dio  710 
rsr 

dio  707 
jmp  . 


/write  end  of  file  section 


Jda  373 
Jsp  201 
733271 
Jsp  332 

1 

jmp  425 
law  2 
Jmp  107 

jsp  166 
Jmp  431 
law  1 
Jmp  107 

Jsp  407 
llo  676 
Jsp  356 

ral  7s 
spa 

Jmp  427 
jmp  423 


/write  eof  function 
/disconnect  data  channel  and 
/execute  function 
/increment  record  count 
/error  return 

/return  to  normal  return  of  main  program 


/there  are  non-end  pt  errors 
/only  end  pt 

/go  to  end  pt  return  of  main  program 
/save  state 


/go  to  end  pt  return  of  main  program 
/go  to  normal  return  of  main  program 


/section  for  read  and  read-compare 


dzm  703 
Jda  373 

law  1  3 
dac  717 


/set  read  compare  indicator  to  straight  read 
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Jsp  201 

731471 

jsp  267 
lac  703 

/process  calling  sequence 

sza 

Jmp  506 

/read  compare 

sia 

lio  712 
swi 

/swc  in 

Jsp  333 

/execute  function,  test  for 
/acceptance  and  completion 

1 

Jmp  467 
rir  5s 
spl 

Jmp  121 
lio  703 

/increment  record  count 
/error  return 

/no  error — move  eof  bit  into  sign 

/end  of  file  return 

spi  i 

Jmp  106 

/normal  return 

Jmp  514 

/read  compare 

Jsp  201 
730471 

/basic  backspace  function 

Jsp  332 

/disconnect  data  control  and 
/execute  function 

-1 

/decrement  record  count 

Jmp  477 

/error  return  from  backspace  after  read 

lsp  717 

Jmp  444 

/normal  return  from  backspace 
/re-read 

Jmp  145 

/go  to  unsuccessful  return  in  main  program 

Jsp  407 
lio  674 

/save  state 

Jsp  356 

Jmp  474 

/normal  return 

lio  472 

/-I 

dlo  703 

Jmp  441 

/set  rci  to  specify  read  compare 

idx  712 

/index  word  count 

sub  700 
szm 

/(l+specif ied  word  count)  -  (1024  decimal) 

Jmp  327 

/illegal  calling  sequence 

lio  702 

/start  of  read  compare  buffer 

Jmp  452 
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/successful  read 


go  to  do  comparison 


law  1  1 


add  712 
dac  712 
cma 

dac  704 
rlc 
swap 
and  713 
sub  702 
sas  712 

Jmp  547 
cli 

/restore  wc  to  length  of  core  block 

/set  counter  to  -(core  block  length) 

/number  of  words  read  is  now  computed 

/blocks  not  equal 
/set  10  to  +0 

lac  711 

dac  715 

lac  702 
dac  716 

eem 

lac  1  715 
sas  1  716 

Jmp  106 

Ldx  715 
idx  716 
isp  704 

Jmp  536 

/go  to  no  compare  return  in  main  program 

/comparison  OK 

law  6 

Jmp  107 

/go  to  comparison  ok  return  in  main  program 

sub  712 
spa 

Jmp  554 
lio  472 

Jmp  531 

/blocks  not  equal 

/tape  block  <  core  block 
/tape  block  >  core  block 
/set  10  to  -1,  ctl  already  set  properly 

lio  137 
add  712 
cma 

dac  704 

Jmp  531 

/words  read  <  core  block,  set  10  to  -0 
/restore  number  of  words  read 

/set  counter  to  -(length  of  tape  block) 
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/section  for  space  function 

Jda 

lio 

373 

470 

/basic  backspace  function 

lac 

• 

/pick  up  plus  or  minus  the  number 
/of  records  to  be  spaced 

sma 

lio 

445 

/basic  forward  function 

dio 

601 

lio 

472 

/-1 

sma 

lio 

456 

/+i 

dio 

613 

sma 

cma 

sad 

137 

/-0 

Jmp 

121 

/zero  spacing  required,  go  to  normal  return 

dac 

704 

/counter  contains  -(no,  of  records  to  space) 

Jsp 

201 

0 

/basic  function  is  preset 

lac 

12 

/pick  up  record  pointer 

sza 

Jmp 

612 

/record  pointer  not  0  -  perform 
/spacing  function 

xct 

563 

/pick  up  +  number  of  records  to  space 

sma 

Jmp 

612 

/perform  forward  spacing  function 

lio 

704 

Jmp 

423 

/go  to  record  0  return  in  main  program 

Jsp 

332 

/disconnect  data  control  and  execute  function 

-1 

/-I  or  +1 

Jmp 

624 

/error  return 

rsr 

/no  error — bring  state  into  10 

rir 

4s 

/rotate  eof  bit  into  sign 

spi 

Jmp 

630 

/eof  found 

isp 

704 

Jmp 

600 

/space  some  more 

Jmp 

121 

/go  to  normal  return 

Jsp 

407 

/error  from  spacing  -  save  state  reg  and 
/init  loc  counter 

lio 

675 

Jsp 

356 

/error  type out 

Jmp 

615 

/normal  return 

idx 

704 

lio 

704 

Jmp 

145 

/go  to  end  of  file  return 
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/section  for  rewind 


Jda  373 
law  4000 
dac  10 

jsp  201 

730471 

swap 
rar  6s 
nop 
spa 

Jmp  651 
Jsp  332 
0 

Jmp  653 
dzm  12 

Jmp  427 

Jsp  407 
lio  677 
law  i  700 

and  707 
sas  701 
jsp  356 

jmp  651 


/set  rewind  indicator  to  rewind  state 


/basic  backspace  function 


/at  load  point 

/disconnect  data  control  and 
/execute  function 

/error  return 

/no  error — reset  record  pointer 

/go  to  normal  return  in  main  program 

/save  state  reg  and  init  loc  counter 

/mask  to  remove  parity  and 
/density  from  state  indicators 


/constants,  temp  storage,  masks,  etc 


decimal 

-66666 

octal 

text  1 

Icbl 

text  1 

cb2 

text  1 

ub 

text  1 

[fna 

721 

040000 

text  1 

f  ics 

text  I 

ebw 

text  1 

ebt 

text  1 

ebr 

text  \ 

esp 

text  1 

ewf 

text  I 

[erw 

/last  reg  of  program 
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2000 


600001 

036000 

0 

/start  of  read  compare  buffer 
/read  compare  indicator,  0  for 
/straight  read,  -  for  read  compare 

0 

0 

720070 

0 

0 

0 

0 

177777 

370001 

0 

0 

0 

0 

0 

/reread  counter 
/blank  tape  counter 
/rewrite  counter 

start 
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APPENDIX  E 


CALIBRATION  OF  PROGRAMMABLE  FILM  READER 

I.  Six  test  patterns  were  chosen  to  evaluate  the  performance  of  the  PFR,  and  are 
displayed  in  Figs.  E-la  —  E-6a.  * 

(E-la)  a  straight  line 

(E-2a)  an  inverted  "V"  with  angle  of  about  69° 

(E-3a)  an  inverted  "W"  with  all  angles  about  60° 

(E-4a)  two  inverted  "V's",  each  with  angle  of  about  28° 

(E-5a)  a  descending  staircase;  and 

(E-6a)  three  rectangular  pedestals  of  decreasing  altitude  and 
constant  width. 

Because  a  sharp  angular  trace  should  tax  the  system  more  than  one  that  changes 
direction  slowly,  these  traces,  with  their  vertical  and  horizontal  segments  and  tri¬ 
angular  waves  of  varying  steepness,  seemed  to  be  good  diagnostic  tools.  In  addition, 
note  that  patterns  E-la  —  E-4a  are  bilaterally  symmetric,  affording  a  check  on  whether 
horizontal  distortion  is  introduced  due  to  the  curvature  of  the  scope  face.  In  the  same 
fashion,  Figs.  E-5a  and  E-6a  afford  a  check  on  potential  vertical  distortion. 

All  traces  are  equally  long,  being  bounded  left  and  right  by  the  same  pair  of 
calibrated  rectangular  pedestals.  The  vertical  lines  at  the  side  of  the  traces  were 
intended  merely  as  reference  marks  for  the  operator  of  the  PFR.  When  the  traces 
were  prepared,  a  camera -alignment  error  resulted  in  a  slight  tilting  of  the  traces 
on  the  film.  The  PFR,  of  course,  reproduced  this  tilt,  so  that  the  right  side  of  each 
trace  appears  somewhat  higher  than  the  left. 

Each  trace  was  photographed  twenty  times,  but  only  one  of  each  kind  was  later 
read  by  the  film  reader.  Preliminary  tests  indicated  that,  for  each  series  of  20  frames 


*Figs.  E-lb  through  E-6b,  shown  on  facing  pages,  represent  photographed  redisplays 
of  the  trace  readings  and  are  described  in  a  later  paragraph. 
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there  was  no  greater  variability  from  frame  to  frame  than  there  was  in  repeated 
readings  of  a  single  frame.  As  a  consequence,  the  calibration  tests  described  below 
used  only  one  of  the  twenty  frames  available  for  each  of  the  six  patterns. 

The  length  and  width  of  trace  segments  were  measured  with  a  Bausch  and  Lomb 
toolmaker's  microscope.  This  microscope  is  scaled  to  .0001  inch  and  reset  accuracy 
was  determined  to  be  +  .  0002  inch.  These  measurements  were  to  be  used  for  an  error 

analysis  of  the  PFR  readings.  However,  as  Figs.  E-l—  E-6  show,  the  error  involved  in 
the  automatic  film  reading  was  so  small  as  to  render  such  an  analysis  unnecessary. 
Several  of  the  measurements  were  used  to  obtain  an  accurate  estimate  of  the  number 
of  scope  points  corresponding  to  an  inch  of  film.  This  estimate,  670  scope  points  per 
inch,  was  used  to  corroborate  the  PFR  count  of  12  scope  points  for  the  width  of  traces 
used  in  this  study. 

Using  a  special  modified  version  of  the  Series  1  program,  described  in  Sec.  II.  A, 
the  traces  were  read  by  the  film  reader.  One  of  the  modifications  was  to  change  the 
film  advance  subroutine  to  handle  framed  film.  Every  other  scope  coordinate  was 
sampled  in  both  the  vertical  and  horizontal  direction.  All  traces  were  read  with  an 
f-stop  of  slightly  more  than  5.6  for  the  signal  lens  and  an  f-stop  of  11  for  the  reference 
lens.  Each  trace  was  read  ten  times  in  order  to  estimate  the  variability  inherent  in 
the  system. 

The  high  voltage  supply  to  the  photomultipliers,  the  scope  intensity  level,  and 
the  focus  adjustment  were  set  to  yield  a  high  fidelity  reproduction  of  the  trace.  In 
other  words,  the  system  was  tuned  so  that  the  redisplay  was  visually  determined  to  be 
satisfactory.  Preliminary  tests  had  shown  that,  unless  care  were  taken  in  focusing 
and  in  the  setting  of  voltage  and  intensity  levels,  misreadings  resulted,  such  as  peak¬ 
flattening  and  trails  at  the  edges  of  square  waves. 

The  digitized  amplitudes  of  points  read  were  recorded  on  magnetic  tape, 
retrieved,  and  examined.  The  disparity  between  two  readings  of  the  same  trace  was 
seldom  greater  than  two  ordinate  units,  and  was  usually  zero  or  one.  The  system,  in 
other  words,  consistently  reported  essentially  the  same  ordinate  value  in  multiple 
readings  of  a  single  trace. 
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The  points  read  by  the  PFR  were  redisplayed  on  the  oscilloscope  by  the  tape 
viewing  program  and  photographed.  In  order  to  facilitate  comparison  of  the  film  traces 
with  their  associated  oscilloscopic  redisplays,  prints  were  made  both  from  the  test 
film  and  from  the  directly  photographed  redisplays.  Film  traces  and  their  associated 
redisplays  are  presented  on  facing  pages  in  Figs.  E  -  i  through  E-6. 

The  radar  scan  program  is  designed  to  track  the  trace  and  to  calculate  its  center 
by  averaging  the  ordinates  of  its  upper  and  lower  edges.  How  well  it  does  this  was 
examined  by  the  following  procedure.  The  points  read  by  the  PFR  were  plotted  on  graph 
paper  and  mounted  on  a  vertical  surface  normal  to  the  beam  of  an  ACME  35  mm  pro¬ 
jector.  The  appropriate  film  trace  was  then  projected  onto  the  plot  of  what  had,  in  fact, 
been  read.  This  was  done  for  each  of  the  six  patterns.  The  plotted  points  and  their 
superimposed  projections  are  shown  in  Figs.  E-7  through  E-12.  It  is  apparent  that 
the  PFR  does  an  excellent  job.  Peaks  are  well -delineated,  edges  do  not  trail  off 
systematically,  and  the  center  of  the  trace  seems  to  be  consistently  read  to  an  accuracy 
of  one  scope  point. 

II.  This  calibration  test  has  shown  that  the  automatic  film  reading  system  is  basically 
sound.  Some  of  the  observed  disparities  between  the  film  traces  and  the  system’s 
output,  moreover,  may  not  be  the  fault  of  the  reader  at  all,  but  rather  of  variables 
such  as  imperfect  positioning  of  the  film  in  the  film  gate  when  reading  is  underway. 

In  any  case,  with  film  of  good  quality  disparities  are  small. 

III.  Each  of  the  six  test  patterns  was  read  ten  times  by  the  PFR.  For  each  pattern, 
two  of  these  readings  were  selected  for  comparison.  The  absolute  value  of  the  difference 
between  corresponding  amplitude  readings  was  recorded  and  all  differences  were  col¬ 
lected  in  the  frequency  table  shown  below. 
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Absolute  Difference 


0 

1 

2 

3 

>3 

Pattern  I 

Straight  Line 

211 

45 

— 

— 

— 

Pattern  II 

Inverted  V 

179 

63 

10 

4 

— 

Pattern  III 

Inverted  W 

161 

86 

9 

— 

— 

Pattern  IV 

Two  inverted  V's 

42 

159 

39 

10 

6* 

Pattern  V 

Staircase 

200 

50 

2 

3 

1* 

Pattern  VI 

Pedestals 

21 

206 

24 

3 

2* 

For  every  paired  comparison  at  least  93.  8%  of  all  points  showed  amplitude  differences 
no  greater  them  two  units,  and  at  least  97.7%  of  all  points  showed  amplitude  differences 
no  greater  than  three  units . 


f 


*  Of  the  differences  greater  than  three,  all  of  those  for  Patterns  V  and  VI  and  two 
of  those  for  Pattern  IV  represent  slight  differences  in  alignment  rather  than 
inherent  variability.  All  of  these  cases  involve  transitions  to  or  from  a  hori¬ 
zontal  trace  portion:  one  reading  gave  the  amplitude  of  a  terminal  point  of  this 
horizontal  portion,  while  the  other  gave  the  amplitude  of  the  first  point  beyond  it. 
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-PA-1802 


Fig.  E-la  Print  from  film 
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FU5-17V 


Fig.  E-2b  Print  from  redisplay 


171 


-FA-1805 


Fig.  E-4a  Print  from  film 
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7015-176 


Fig.  E-4b  Print  from  redisplay 
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-PA-lflo6 


Fig.  E-5a  Print  from  film 
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PU5-OT 


Fig.  E-6b  Pririt  from  redisplay 
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DEFLECTION  (scope  units) 


Fig.  E-7 


Graph  of  computer  output  superimposed  on  projection  of  film 


Fig.  E-8  Graph  of  computer  output  superimposed  on  projection  of  film 


AMPLITUDE  (scope  units) 


AMPLITUDE  (scope  units) 


280 


|3-PA-I80<H] 


240 


200 


160 


r 

t 


120 


80 


40 


0 


100  200  300  400  500 

DEFLECTION  (scope  units) 


Fig.  E-10  Graph  of  computer  output  superimposed  on  projection  of  film 


3 

j 


600 


AMPLITUDE  (scope  units) 


Fig.  E-ll  Graph  of  computer  output  superimposed  on  projection  of  film 


Fig.  E-12 


Graph  of  computer  output  superimposed  on  projection  of  film 
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